Sub test1()
Dim A, B
Sheets(1).Select
A = Range("f2:h" & Cells(Rows.Count, "f").End(3).Row)
ReDim B(1 To UBound(A) * 2, 1 To 1)
Call test2(A, B, 1, 1)
Call test2(A, B, 2, 3)
Sheets(2).Select
[f2:f65536] = ""
[f2].Resize(UBound(B)) = B
End Sub
Sub test2(A, B, s, j)
Dim i
For i = 1 To UBound(A)
B(s, 1) = A(i, j)
s = s + 2
Next i
End Sub
2.rar
(19.17 KB, 下载次数: 6)
|