Excel：合并两列

【问题标题】：Excel: Merge two columnsExcel：合并两列
【发布时间】：2017-06-24 01:15:57
【问题描述】：

如何合并这两列： Original

到一列： Result

谢谢

【问题讨论】：

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

【讨论】：

【解决方案2】：

在C1中输入：

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

然后抄下来。
这是一个典型的合并公式。

【讨论】：

【解决方案3】：

你可以试试这个说法：

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

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

【讨论】：