excel - 用于查找空白单元格的 VBA

Question

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

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

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

Answer 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