回覆列表
  • 1 # 使用者3937226028394

    方法如下:

    1.當前工作簿中有多個工作表,結構都一樣如下所示,當裡面的資料不一樣,將它們全部合併到當前工作表中:

    2.Alt+F11,開啟宏介面,輸入如下程式碼:

    Sub m()

    For Each sh In Sheets "遍歷每個工作表,提取資料

    If sh.Name "Sheet1" Then "排除當前工作表

    sh.Range("A2:C" & sh.Range("A65536").End(3).Row).Copy Range("A" & Range("A65536").End(3).Row + 1) "將工作表中的所有資料複製到當前工作表最後一行的下一行中

    End If

    Next

    End Sub

    3.F5執行程式碼,返回Excel得到結果如下,工作表合併完成:

  • 中秋節和大豐收的關聯?
  • 請問頭髮是先燙後染還是先染後燙好?