VBA中如何将一维数组中非空值顺序填入列单元格，请高手指点。

Sub a()
Dim s(10) As String
Dim i As Integer, j As Integer
For i = 0 To 10
   s(i) = Chr(Rnd * 96)
Next

For i = 0 To 10
   If Not IsNull(s(i)) Then
      j = j + 1
     Sheet1.Cells(j, 1) = s(i)
   End If
Next

End Sub

 

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/v3xjvfj3vey7f2jx2vx.html