Excel：合并两列

Question

如何合并这两列： Original

到一栏： Result

由于

Answer 1

此脚本正常运行

    Public Sub CullValues()
    Dim i&, j&, k&, v
    v = ActiveSheet.UsedRange
    For i = 1 To UBound(v, 1)
        k = 0
        For j = 1 To UBound(v, 2)
            If Len(v(i, j)) Then
                k = k + 1
                v(i, k) = v(i, j)
                If j > k Then v(i, j) = Empty
            End If
        Next
    Next
    [a1].Resize(UBound(v, 1), UBound(v, 2)) = v
End Sub

Answer 2

在 C1 中输入：

=IF(A1&B1="","",IF(A1="",B1,A1))

并复制下来。
这是典型的合并公式。

Answer 3

您可以尝试以下声明：

Sheet1.UsedRange.Columns("A").SpecialCells(xlCellTypeBlanks).Delete xlToLeft

您可以从即时窗格或任何VBA例程内部执行此操作。