将2列合并为1.（一个接一个）

Question

我想将2列合并为1.一个接一个。

我有这个：

       A  B
Row 1: 1  10
Row 2: 2  11
Row 3: 3  12
Row 4: 4  13

想获得这个：

       A
Row 1: 1
Row 2: 2
Row 3: 3
Row 4: 4
Row 5: 10
Row 6: 11
Row 7: 12
Row 8: 13

每列中2列的行数不同（A和B中的行数相同）。

我尝试了很多功能而且我已经关闭但仍然没有。 非常感谢任何帮助。我喜欢公式。我还是VBA的新手，但任何帮助都没关系。

谢谢！

Answer 1

这是一个可以做到的公式。

将其放入C1并复制。

=IF(A1<>"",A1,INDEX(B:B,ROW()-COUNTA(A:A)))

Answer 2

试试这个。

Range("B1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Selection.End(xlToLeft).Select
Selection.End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Range("A1").Select