Public Sub dd()
Dim alldata As Variant
Dim i As Integer
Dim n As Integer
Dim x As Integer
x = 1
alldata = Range("a2:b8").Value
For i = 1 To UBound(alldata, 2)
For n = 1 To UBound(alldata, 1)
If alldata(n, i) <> "" Then
Range("c1").Offset(x, 0).Value = alldata(n, i)
x = x + 1
End If
Next
Next
End Sub
不太理解你的用意?其实简单的拷贝是否可合适?用End(xlDown)去判断行尾。