时间戳

首页 > 解决方案 > 查找空白单元格，插入包含上方单元格范围的公式

excel - 查找空白单元格，插入包含上方单元格范围的公式

问题描述

我正在尝试找到一个 vba 代码，它将在某一列中找到空白单元格，并用包含上述单元格范围的公式替换这些单元格（直到下一个空白单元格）

比如单元格A2:A15填入，A16为空白，我想要一个能找到空白C16的代码，插入如下代码：

=COUNTIF(A2:A13,A2)=COUNTA(A2:A13)

我有大约 72,000 行，并且空白单元格范围之间没有统一的间距。

非常感谢您！

这就是找到的代码

Sub Testing()
Dim Rng As Range, r As Range

Set Rng = Range("a2:a" & Range("a" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeConstants)
Top = Selection.End(xlUp).Value

For Each r In Rng.Areas
    With r
         .Cells(1, 1).Offset(.Rows.Count).Formula = "=countif(" & .Address & ", " & .Top & ") = CountA(" & .Address & ")" 'i got stucked with the code here. where i want to pick the first cell for every range.
    End With
Next
End Sub

标签： excelvba

解决方案

尝试以下（首先没有 VBA）：

选择您的列。
转到空白 (ctrl+G)。
在公式栏中，键入您的公式。
按ctrl ENTER。

这应该将公式复制到您选择的所有空白单元格中。

一旦这工作，将其记录到 VBA 宏中。

推荐阅读