简单的VBA代码：用文本填充单元格为空

Question

这仅用于学习目的。我下面有这段代码。我希望该程序能够检查从1到999的每个单元格。如果该单元格为空，它将用文本填充它。这段代码什么也没发生：

Sub Makro1()
'
' Makro1 Makro
'
Dim iRow As Integer
Dim iRowEmpty

On Error Resume Next
'//Your Line here which causes 1004 error
If Err.Number > 0 Then
  Debug.Print Err.Number & ":" & Err.Description
End If

i = 0
iRowEmpty = Rows(i, 1)

Do Until i = 999
    i = i + 1
    iRowEmpty = Rows(i, 1)
        If IsEmpty(iRowEmpty) = True Then
           iRowEmpty.Value = "Text..."

        End If
Loop
MsgBox ("The End")
'Note: Debug shortcut keys i use in PC: Step Into (F8), Step Over (Shift + F8), Step Out (Ctrl + Shift + F8)

End Sub

电子表格具有1列数据，大多数情况下，第二个单元格为空。

Answer 1

首先：如果要检查单元格，则应使用

pie.setData(data);
pie.invalidate();

第二：iRowEmpty只是Cell的副本，而不是直接引用，因此您应该使用

Cells(i,1)

将值分配给单元格。

所以最后你会有类似的东西

Cells(i,1).Value = "Text..."

希望这会有所帮助。

编辑：

要澄清：

  

语法

     

Microsoft Excel中ISEMPTY函数的语法为：

     

IsEmpty（value）

     

值

     

您要测试的值。 如果值是空白单元格或   未初始化的变量，此函数将返回TRUE 。除此以外，   该函数将返回FALSE。

     

适用于：

     

Excel 2016，Excel 2013，Mac版Excel 2011，Excel 2010，Excel 2007，   Excel 2003，Excel XP，Excel 2000

来自：