如何检查单元格是否为空？

Question

寻找检查单元格是否为空的编码。 如果它不为空，则移动到下一个单元组。 但我需要检查下一个单元组是否为空。 如果没有，则移至下一个，依此类推。

我的当前编码如下。

If IsEmpty(ActiveSheet.Range("h3")) Then
    Do
    Checkbox1.Value = True
    Range("H3") = 17002
    Sheets("Sheet1").Range("I3") = Printerformat2.Text
Else
    Checkbox1.Value = True
    Range("l3") = 17002
    Sheets("Sheet1").Range("m3") = Printerformat2.Text
End If

Answer 1

您需要使用 for 循环遍历“H”中的指定范围

Dim i As Long
With ActiveSheet
  For i = 1 to 500

    If IsEmpty(.Range("h" & CStr(i)).Value) Then
     'Do 'Not sure where you're going with this one? This is not really needed from what I can tell.
     Checkbox1.Value = True
     .Range("H" & CStr(i)).Value = 17002
     Sheets("Sheet1").Range("I" & CStr(i)).Value = Printerformat2.Text
    Else
      Checkbox1.Value = True
      .Range("l" & CStr(i)) = 17002
      Sheets("Sheet1").Range("m" & CStr(i)).value = Printerformat2.Text
    End If

   Next
End With

希望有帮助吗？

Answer 2

我认为你应该看看Range("your range").specialcells(xlCellTypeBlanks) 。 这是循环空单元格的最快方法。
如果您需要在非空白单元格上循环，您可以检查您的单元格是否与空白单元格范围Intersect 。

Answer 3

利用

 Application.WorksheetFunction.isblank(ActiveSheet.range("h3"))

代替

 IsEmpty(ActiveSheet.Range("h3")) 

亲切地

Answer 4

确保单元格不为空的最优化方法是“If Len(cell) <> 0”。

您可以使用 .offset 从当前单元格访问与其 position 相关的另一个单元格，或直接引用它，以便检查它是否为空。