Всех с наступившим новым годом, всех благ и здоровья! Нужно срочно решить следующую проблему. Есть 9 файлов, суммарно около 7000 строк. В каждой нужно заменить значение между двумя запятыми на пробел. Запятых несколько, нужно заменить предпоследнее. Столбец А исходный, Столбец Б желаемый результат. Уже создавал топик на другом форме. http://www.excelworld.ru/forum/2-43791-1
- раз срочно, то уже и сами бы вручную заменили эти 9 столбцов на пробелы... Ну а если делать макросом и по уму - то поищите код который переписывает один текстовый файл в другой построчно, заменяя по ходу дела часть строки. Если бы были примеры исходных файлов - можно бы и тут код написать.
Нужно заменить значения внутри предпоследних запятых на пробел. Значения в столбе А исходные, нужно преобразить в значения как в столбе Б, только автоматически. Формулой, либо иным инструментом.
Раз файлов 9 - то и столбцов всего 9. Трудно 9 раз вбить пробел и 9 раз кликнуть по уголку ячейки? Ну и сохранить, хотя конечно редактировать csv лучше в специально для этого написанных программах...
9 файлов, 7 тыс строк. = 63000 раз нужно редактировать строки. Я конечно понимаю 2 января..Вы дважды не можете прочитать про 7 тыс строк? Будьте добры не закидывайте спамом тему.
Sub Button1_Click()
arr = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value
For i = 1 To UBound(arr)
sp = Split(arr(i, 1), ",")
arr(i, 1) = ""
For j = 0 To UBound(sp)
If j > 0 Then
If j <> UBound(sp) - 1 Then arr(i, 1) = arr(i, 1) + "," + sp(j) Else arr(i, 1) = arr(i, 1) + ", "
Else
arr(i, 1) = sp(j)
End If
Next
Next
Range("C2").Resize(UBound(arr)) = arr
End Sub
Я честно не понимаю какая проблема в количестве строк? Какая разница - 10 или 10000 строк - всё равно нужно кликать только 1 раз, если файл открыть нормально с разделителями в Экселе!
Вообще пока нам не показали ДВА файла - исходный и изменённый, причём изменённый гарантированно проверенный в дальнейшем процессе (ну мало ли для чего его нужно править) - тут можно только предлагать возможные варианты, но все без гарантий...