回覆列表
  • 1 # 再見往事不堪回首

    步驟操作:  

    1、複製目標區域  

    2、在另一表格中要貼上的位置,選擇性貼上(右擊單元格——選擇性貼上),貼上列寬  

    3、將目標區域整行選擇,例如在A1:E20,就把1——20行整行選擇複製,在貼上到另一表格的貼上位置即可。

  • 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

  • 中秋節和大豐收的關聯?
  • 留守兒童隔代教育存在哪些問題?