excel如何用宏代码向数组输入符合条件的数据

在工作薄中列有数据，想创建数组用来存放指定数据(a)，我这么写，报错。
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
arr(n) = sht.Cells(i, 1).Value
n = n + 1
End If
Next i
Next
End Sub
好像是数组定义出错，怎么改！谢谢先

试试：
 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

如图：

“d4”单元格公式为：

=mod((left(b4,1)+left(b3,1)),9)&right(b3,len(b3)-1)

将公式拖下去即可。

不知我是否弄明白了你的要求。