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

来源：百度知道 编辑：UC知道 时间：2024/05/29 18:57:20
它不是0值，我已经将空值不赋予任何值，就是""，因为我另有0值的单元格，""该怎么可以表示吗？ 还有，怎么指定那个单元格，这才是我不会的？
二楼的，关于r(i) <> ""，还是不对，""到底是什么？

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值不是""

dim a
dim c(9)
dim i
a=1
for i=1 to 9
if a<>0 then
c(i)=a
end if
next