Excel как перебрать все данные в одном столбце

Question

У меня сейчас очень большой набор данных, и я пытаюсь реорганизовать их, как описано ниже:

Ток:

A

B

C

(здесь пустая строка)

A

B

C

D

здесь пустая строка

A

B

C

В столбце A есть либо ABC, либо ABCD, за которыми следует пустая строка

и Iя пытаюсь отформатировать как это

ABC

ABCD

ABC ...

Я не могу понять, как это сделать, если кто-то может мне помочьвсе это делается в Excel

Answer 1

Начальное место для вас (взято из: Excel VBA, захватывает первое «начальное» и последнее «конечное» значение для группы )

 Dim a as Long, b as Long, i as Long, lr as Long
 lr = cells(rows.count,1).end(xlup).row
 For i = 2 to lr
     If cells(i,1).value = cells(i+1,1).value then
          If a = 0 then
              a = i + 1
          End If
     Else
          If a > 0 AND b = 0 then
              b = i + 1
          End If             
     End If
     If b > 0 AND a > 0 Then
         'perform action on range(cells(a,2),cells(b,2))), etc.
         a = 0 'resets for next grouping
         b = 0 'resets for next grouping
    End If
Next i
a = 0
b = 0