复制粘贴大型Excel文件列中的重复值

Question

我遇到了一个问题并希望得到一些帮助。

以下是我现在正在使用的内容：

我喜欢的是B，C，B和B列。 D复制到它下面的空白行，直到它到达一个新客户端，如下所示：

非常感谢任何和所有帮助。

由于

Answer 1

非VBA解决方案：

使用您的数据选择整个范围。按 CTRL + G 并选择特殊...

选择空白，然后按确定

您将获得如下图所示的结果。 使用选定的单元格键入=并按↑键。按 CTRL + ENTER

<强>结果：

现在，如果您需要，可以复制结果并制作 PasteSpecial - ＆gt;粘贴值

---

VBA解决方案：

Sub test()
    Dim rng As Range, ar As Range
    On Error Resume Next
    Set rng = Range("A2:D20").SpecialCells(xlCellTypeBlanks)
    On Error GoTo 0

    If Not rng Is Nothing Then
        rng.FormulaR1C1 = "=R[-1]C"
        rng.Calculate
        For Each ar In rng.Areas
            ar.Value = ar.Value
        Next
    End If
End Sub