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

Question

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

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

我想要的是将B,C和D列复制到它下面的空行中,直到它到达一个新的客户端,如下所示:

任何和所有的帮助非常感谢.

谢谢

Answer 1

非VBA解决方案:

选择包含数据的整个范围.按CTRL+ G并选择特殊...

选择空白,然后按确定

你会得到如下图所示的结果.选择单元格类型=并↑按键.按CTRL+ENTER

结果:

现在,如果您愿意,可以复制结果并制作PasteSpecial - >粘贴值

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