標題: EXCEL 快速參照工作表 [打印本頁]

---

作者: sschristy    時間: 2023-3-17 16:38     標題: EXCEL 快速參照工作表

想請問各位前輩，如果我在EXCEL內建了一個總表有10個項目，然後再建立10個新工作表，第1個工作表要參照總表的A列，第2個工作表要參照總表的B列，以此累推，有沒有什麼比較快速的方法可以完成呢？

---

作者: Andy2483    時間: 2023-3-20 11:14

回復 1# sschristy


    謝謝前輩發表此主題與情境
後學練習VBA的模擬解決方案與範例如下,請前輩參考

[attach]35984[/attach]

執行前:
[attach]35985[/attach]

執行結果:
[attach]35986[/attach]

Option Explicit
Sub TEST()
Application.ScreenUpdating = False
'↑令螢幕不隨程序作結果的變化
Dim i&, Sh As Worksheet
'↑宣告變數:i是長整數,Sh是工作表變數
Set Sh = ActiveSheet
'↑令Sh這工作表變數是現用工作表
For i = 1 To 10
'↑設順迴圈!i從1到 10
   With Sheets.Add
   '↑以下是關於增加一個新工作表的程序
      .Name = Sh.Cells(1, i)
      '↑令工作表名字是 Sh變數的第1列第i迴圈欄儲存格值
      .Move After:=Sheets(Worksheets.Count)
      '↑令將工作表移動到最後一個
      Sh.Columns(i).Copy .[A1]
      '↑令Sh變數的第1欄複製到 此表[A1]
   End With
Next
Application.Goto Sh.[A1]
'↑令儲存格游標跳到 Sh變數的[A1]
End Sub

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)