Однажды затеяли мы на складе инвентаризацию. Распечатали бумажки, и пошли люди считать. А потом операторы вносили все в табличку в экселе.
Но так как операторы были тетушки простые, то строки они не создавали новые копированием, а добавляли внутри ячеек, ОТБИВАЯ ПРОБЕЛАМИ ДО ВИЗУАЛЬНОГО ПЕРЕНОСА НА СЛЕДУЮЩУЮ СТРОЧКУ. Я не знал, что можно не знать про клавишу Alt-Enter, которая внутри ячейки вставляет перенос на другую строку, но они не знали... Теперь и я знаю, что так можно, а люди бывают разные, в том числе, которые даже у яндекса постесняются спросить, как перенести текст внутри ячейки в экселе.
Короче говоря, у меня задача -те строки, на которые они перенесли данные внутри ячеек, сделать отдельными строками в таблице. И задача вроде как несложная - написать макрос, который будет каждую ячейку через функцию Split преобразовывать в массив и записывать его в другой массив, который потом сделать табличкой. Но не тут-то было. Разное количество пробелов усложнило задачу - необходимо было вычислять, где пробелы внесены для того, чтобы строку отбить, а где просто составная часть информации. Короче, сначала надо было пробелы заменить на Alt-Enter.
Но стандартной заменой это не вышло, так как символа, который в ASCII закодирован под номером 10 вставкой не вставишь, и никак не вставишь, по крайней мере на дистрибутиве, который у меня на работе стоит. Потому родился макрос, который по разделителю разбивает информацию внутри ячейки на строчки.
Sub ChngToAltEnter()
Dim chng As String
chng = CStr(InputBox("Введите что надо заменить на Alt-Enter", "Замена"))
Dim frange As Range
Set frange = Selection
frange.Replace chng, Chr(10)
End Sub
Все простенько
