【发布时间】:2020-10-02 06:55:44
【问题描述】:
我正在尝试遍历一个数组和任何具有我想在列表中打印的值的元素。但是,我在识别空白单元格时遇到问题。现在它识别出每个单元格都不是空的。我还包括数据的屏幕截图以提供帮助。 (某些列隐藏在屏幕截图中)
我尝试过:
Evaluate("isblank(" & Cells(i, 8).Address & ")")
IsEmpty(列表(i, 1))
IsNull(list(i, 1))
以上选项都不起作用,这是我目前拥有的
Dim list As Variant
Dim i As Integer
Dim Y As String
Dim X As Integer
Y = "A"
X = 2
list = Range("H12:H158").Value
For i = 1 To 147
If Not IsEmpty(list(i, 1)) Then
Cells(X, Y) = list(i, 1)
X = X + 1
End If
Next i
非常感谢任何建议
【问题讨论】:
-
包含零长度字符串的单元格不是空的。试试
list(i, 1) <> vbNullString -
@chrisneilsen 会返回一个布尔值
-
是的............
-
感谢您在我删除 Not 后完美运行。