用于查找空白单元格的 VBA

Posted 2023-02-18

【中文标题】用于查找空白单元格的 VBA

【英文标题】：VBA for finding blank cells

【发布时间】：2013-11-05 12:35:57

【问题描述】：

我有一段代码，其中数据位于 Sheet1 中。代码在 Sheet4 中创建了一个数据透视表，我尝试在 Sheet2 中粘贴特殊的数据透视表。直到它工作正常。现在我尝试在其中找到空白单元格并尝试粘贴上单元格的值。然而它不起作用！

    Sheet2.Range("A1:D5").SpecialCells.Select
 Selection.FormulaR1C1 = "=R[-1]C"

我刚刚输入了一个样本范围。我需要对 Sheet2 中的整个数据透视数据进行此操作。有什么想法吗？

【参考方案1】：

首先选择数据透视表的数据部分（不要选择标签）然后运行：

Sub dural()
    If Selection(1) = "" Then Exit Sub
    On Error Resume Next
    Set r = Selection.Cells.SpecialCells(xlCellTypeBlanks)
    If r Is Nothing Then Exit Sub
    r.Value = Selection(1)
End Sub