Sub Click()
Dim A, B, i, j, s
A = Range("a1").CurrentRegion
ReDim B(1 To UBound(A, 2) * 2, 1 To 1)
For j = 1 To UBound(A, 2)
For i = 1 To 2
s = s + 1
B(s, 1) = A(i, j)
Next i
Next j
[a2:a65536] = ""
[a1].Resize(UBound(B)) = B
End Sub
数据移动附件2.rar
(12.37 KB, 下载次数: 3)
|