回覆列表
-
1 # 再見往事不堪回首
-
2 # 九爺好可愛
Sub test() Dim s, t Dim i As Integer Dim rs As Integer s = Array(1, 5, 8) t = Array(2, 6, 7) Sheets("目標表").Select With Sheets("原始表") For i = 0 To UBound(s) rs = .Cells(65536, s(i)).End(xlUp).Row - 1 Cells(65536, t(i)).End(xlUp).Offset(1, 0).Resize(rs, 1).Value = .Cells(2, s(i)).Resize(rs, 1).Value Next End With
步驟操作:
1、複製目標區域
2、在另一表格中要貼上的位置,選擇性貼上(右擊單元格——選擇性貼上),貼上列寬
3、將目標區域整行選擇,例如在A1:E20,就把1——20行整行選擇複製,在貼上到另一表格的貼上位置即可。