Excel：合并两列

如何合并这两列： 原始

到一列： 结果

谢谢

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中input：

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

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

Answer 3

你可以试试这个声明：

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

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