excel中用VBA复制sheet1中的A列和B列至sheet2中A列并删除空行

Question

sheet1中的A列和B列有许多空单元格。我只会做A列或B列，两列同时不会。

Answer 1

你的意思没说清楚，是把表1 中 AB列的内容复制到表2的A吗，要怎么复制，是表1的A列内容复制完后，再复制B列的内容。还是A列一个B列一个，这样的复制。追问

复制sheet1中的A列与B列两列至sheet2中A列，A列行数可能加减，B列也是如此，也就是说行数有加有减。且当中有空行出现的。删除空行。

追答

把AB列复制到C 还是 D 的效果啊，A B 列的增减不用去想，这个简单。

追问

当然是D列这个效果啊，怎麼搞的啊？

追答

Sub sdf()
a = Cells(65536, 1).End(xlUp).Row
b = Cells(65536, 2).End(xlUp).Row
r = 1
If a > b Then
c = a
Else
c = b
End If
For i = 1 To c
For u = 1 To 2
If Cells(i, u) "" Then
Cells(r, 4) = Cells(i, u)
r = r + 1
End If
Next
Next
End Sub

追问

是两个表啊