excel - 单元格值未显示在 VBA 中

Question

我正在尝试使用 vba 读取 Excel 中的单元格值。当我尝试阅读它时，我总是得到 null。

这是代码片段

Private Sub CommandButton1_Click()
Dim i As Long
Dim j As Long
i = 3
j = 4

Do While (Len(Trim(Sheet1.Cells(i, 16))) <> 0)

    Sheet2.Cells(4, j) = Sheet1.Cells(i, 16)

    j = j + 1
    i = i + 1

Loop

End Sub

但是 dowhile 总是获取 NULL 并跳出循环。 Sheet1 中的单元格具有值。

请帮帮我。

Answer 1

尝试

Do While(Not IsEmpty(Sheet1.Cells(i, 16))

或者也许是这样

Do Until IsEmpty(Sheet1.Cells(i, 16))