Маринос много работает с файлами 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 = xlHAlignRight             End Select         End With     Next     Set rCell = Nothing End Sub

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

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

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

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

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

Этот совет (8709) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365. Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

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