vba 遍历sheet1的B列数据（数据为字符串）

楼主，你说的这个操作，有简便的方法，excelhome上就有的，不过是要调用api，说实话，我不太懂那个，用的太少了，而且有的电脑调用api会出错，不要问我为什么，我都快被折磨死了。

如果是我做的话，我用了下面的方式撒...

Sub TEST()

Dim i As Long, k As Long

Dim Flag As Integer

Dim RowCt As Long

Dim arr() As String

Dim tmp As String

Dim brr() As String

arr = Split("A,E,F,G,P,Q", ",")   '数组arr定义下

RowCt = Application.CountA(Sheet1.Range("B:B"))

'B列非空行的数量，方便下面的循环对比，不过这个方法适用于B列数据是连续的，如果2行中间有1个或多个空行，会导致B列后面有几行没有比较

'用下面方法可以避免上述问题，不细讲了，万用法，适用性高，记住吧

'RowCt＝Cells(Rows.Count,"B").End(xlup).row

'开始循环了。。。

For i = 1 To RowCt

    Flag = UBound(Filter(arr, Sheet1.Cells(i, "B")))

   'Fliter作用是从中arr中筛选出B列的当前字符串，Ubound就是看数组的元素个数哈

   '如果当前字符串在arr中，那么Flag＝0。（等0是因为数组的第一个元素索引号是arr(0)，如果在程序的开头限定了索引号从1开始，那么Flag＝1）

‘不等于0，就表示不在arr中

    If Flag <> 0 Then

        tmp = Sheet1.Cells(i, "B").Value & "," & tmp

'对于不在arr中的字符，先用tmp连接起来

        k = k + 1

    End If

Next i

'将tmp传送给数组brr，和上面arr定义方法是一样的。不过brr最后一个元素是空的

'如果不想是空，可以先对tmp处理下，如tmp=left(len(tmp)-1)，把最后一个“，”去掉

brr = Split(tmp, ",")

'下面是为了把brr表示出来，注意看下索引号的变化，不细说了

'主要还是因为brr最后一个元素是空，下面的方法没有要最后的元素的

For i = 1 To UBound(brr)

    Sheet1.Cells(i, "G") = brr(i - 1)

Next i

End Sub