'说明:提取指定列,到对应的列
Sub test()
Dim A, B, temp, i
A = Array("J", "L", "O") '源
B = Array("I", "J", "K") '目的
With Sheets("原始")
For i = 0 To UBound(A)
temp = .Range(.Cells(2, A(i)), .Cells(Rows.Count, A(i)).End(xlUp))
Sheets("结果").Range(B(i) & ":" & B(i)).ClearContents
Sheets("结果").Cells(1, B(i)).Resize(UBound(temp)) = temp
Next
End With
End Sub
提取数据2.rar
(11.16 KB, 下载次数: 12)