试试：
Sub aa()
Dim i As Long
Dim n As Long
Dim arr() As String
For Each sht In Sheets
For i = 1 To 100
If sht.Cells(i, 1).Value = "a" Then
n = n + 1
ReDim Preserve arr(n)
arr(n) = sht.Cells(i, 1).Value
End If
Next i
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024