Код VBA для перемещения ячеек, если они содержат определенный отступ - PullRequest
Новая
       8

Код VBA для перемещения ячеек, если они содержат определенный отступ

0 голосов
/ 13 марта 2019

Я хочу написать код на VBA, чтобы отсортировать мои данные в смежные столбцы в зависимости от уровня отступа.Мне удалось написать код, который работает должным образом, основываясь на количестве пробелов, начинающихся в ячейке, однако я не могу найти способ их перемещения на основе отступа.Вот код, который я написал до сих пор: 

Sub Movecellindent()
Dim row As Long

For row = 3 To 3000
    'cells that begin with 15 spaces are moved to column D
    If Range("A" & row).Value Like "               *" Then
        Range("D" & row).Value = Range("A" & row).Value
        Range("A" & row).Value = ""
    End If
Next
For row = 3 To 3000
    'cells beginning with 12 spaces are moved to column C
    If Range("A" & row).Value Like "            *" Then
        Range("C" & row).Value = Range("A" & row).Value
        Range("A" & row).Value = ""
    End If
Next
For row = 3 To 3000
    'cells beginning with 10 spaces are moved to column B
    If Range("A" & row).Value Like "          *" Then
        Range("B" & row).Value = Range("A" & row).Value
        Range("A" & row).Value = ""
    End If
Next

Вместо кода, написанного выше, я хочу, чтобы код выполнял то же действие, но с 3, 2 и 1 отступами соответственно.

Спасибо!

...