excel - Excel如何在一列中循环所有数据

Question

我目前有一个非常大的数据集，我正在尝试按如下所述重新组织它们：

当前的：

一个

乙

C

（此处为空行）

一个

乙

C

D

此处为空行

一个

乙

C

A列中有ABC或ABCD，后跟一个空行

我正在尝试像这样格式化

美国广播公司

A B C D

美国广播公司...

如果有人可以帮助我，我不知道该怎么做，这一切都是在excel上完成的

标签： excelvlookupvba

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