Код |
---|
Sub Tablica()
Dim i As Long
Dim iLastRow As Long
Dim Delimiter As String
Delimiter = "|"
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = ",\s(?=[А-Я])"
For i = 1 To iLastRow
If .test(Cells(i, 1)) Then
Cells(i, 1) = .Replace(Cells(i, 1), Delimiter)
End If
Next
End With
End Sub
|
Есть вот такой код который меняет значение если ",пробел и заглавная буква" на символ разделитель "|"
Код работает только в первом столбце и до конца всех имеющихся строк.
Код |
---|
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row |
Как сделать цикл в цикле? Что бы он проверил все столбцы и строки и менял самое значение на себя. Что бы он изменил и не вывел на соседнюю ячейку как реализовано в коде было
Код |
---|
If .test(Cells(i, 1)) Then
Cells(i, 2) = .Replace(Cells(i, 1), Delimiter) |
Но я поменял цифру и все заработала. Теперь главное что бы когда сделаешь цикл нечего не сломалось как говорится
Код |
---|
If .test(Cells(i, 1)) Then
Cells(i, 1) = .Replace(Cells(i, 1), Delimiter) |
Документ приложил там заполнено 70 столбцов просто, мне нужно проверить 70 столбцов и 22к строк. Некоторые столбцы могут быть пустыми.