声明一个变体变量, 然后直接将单元格区域的值赋给它.
Public Sub a()Dim aa = Range("A1:A55")End Sub
Dim i As Single 改为 Dim i As Integer
