用于查找空白单元格的 VBA答案

【问题标题】：VBA for finding blank cells用于查找空白单元格的 VBA
【发布时间】：2013-11-05 12:35:57
【问题描述】：

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

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

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

【问题讨论】：

标签： excel vba

【解决方案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

【讨论】：