vba 当cells不为空时

时间: 2023-11-02 11:06:21 浏览: 42

您可以使用 VBA 中的 If 语句来检查单元格是否为空。以下是一个示例[代码]([http](https://geek.csdn.net/educolumn/68f28ca3131d47699e5902c5d3d74d51?spm=1055.2569.3001.10083)s://geek.csdn.net/educolumn/1572ef9b473b4e00f6b2bf6d428b7c27?spm=1055.2569.3001.10083)，当单元格 A1 不为空时，将在 MsgBox 中[显示](https://geek.csdn.net/educolumn/103ca72607c717122e068b9f06a24df6?spm=1055.2569.3001.10083)一条[消息](https://geek.csdn.net/educolumn/20acd77092e0c464c067a69674f1ed19?spm=1055.2569.3001.10083)。 Sub CheckCell() If Not IsEmpty(Range("A1")) Then MsgBox "Cell A1 is not empty." End If End Sub 您可以将此[代码](https://geek.csdn.net/educolumn/1572ef9b473b4e00f6b2bf6d428b7c27?spm=1055.2569.3001.10083)修改为适合您的需要，例如检查多个单元格或在单元格不为空时执行其他操作。

用vba写一个当E列不为空，F列为空，G列显示F列为空的代码

你好，以下是回答： Sub CheckEmpty() Dim lastRow As Long lastRow = Cells(Rows.Count, "E").End(xlUp).Row For i = 1 To lastRow If Not IsEmpty(Cells(i, "E")) And IsEmpty(Cells(i, "F")) Then Cells(i, "G").Value = "F列为空" End If Next i End Sub 希望能对你有所帮助。