VBa中若第2行的值不为空，则赋值给数组a(1)，怎么写？

Sub tt()

Dim r As Range

Dim i As Integer

Dim a(256) As Variant

Set r = [2:2]

For i = 1 To 256

If r(i) <> "" Then a(i - 1) = r(i)

Next

Set r = Nothing

End Sub

补充：

""表示空字符、空值Null

0值不是""