Маринос много работает с файлами CSV. В его случае файлы CSV создаются специальным приложением, и он обнаружил, что может даже включать в них формулы. Таким образом, если строка файла CSV содержит «,,, Total:, = SUM (D5: D13) ,,,,», формула вычисляется, и все в порядке.

Однако Маринос хочет указать в файле CSV, как отдельные ячейки должны быть обоснованы после их импорта в Excel.

Он, кажется, помнит, что в Lotus 123 он мог использовать префиксный символ для обозначения выравнивания ячейки (‘для левого, ^ для середины и «

для правого); он полагает, что такая же возможность была бы отличной в Excel.

В Excel нет способа сделать это; выравнивание импортированных данных основано на системных настройках по умолчанию, так что текст выравнивается по левому краю, а числа — по правому краю. Однако один вариант , можно было бы добавить символ префикса, который впоследствии можно было бы «проанализировать» с помощью макроса, чтобы применить желаемое выравнивание. Например, вы можете использовать «<» для левого, «^» для центра и «>» для правого. Когда Excel импортирует файлы CSV, поля обрабатываются как текст. Затем вы можете запустить этот макрос для поиска ведущего символа выравнивания и выполнения желаемого действия:

Sub SetJustification()

Dim rCell As Range

For Each rCell In ActiveSheet.UsedRange         With rCell             Select Case Left(.Value, 1)

Case "<"

.Value = Mid(.Value, 2)

.HorizontalAlignment = xlHAlignLeft                 Case "^"

.Value = Mid(.Value, 2)

.HorizontalAlignment = xlHAlignCenter                 Case ">"

.Value = Mid(.Value, 2)

.HorizontalAlignment = xlHAlignCenter             End Select         End With     Next     Set rCell = Nothing End Sub

Макрос проверяет каждую ячейку на листе. Если ячейка начинается с символа выравнивания, то этот символ удаляется и выполняется правильное выравнивание. применяется.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (3131) применим к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и более поздних версий) здесь:

link: / excelribbon-Aligning_Cells_when_Importing_from_CSV [Выравнивание ячеек при импорте из CSV].