EXCEL 快速參照工作表

sschristy

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

Andy2483

回復 1# sschristy


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

EXCEL 快速參照工作表_20230320-1.zip (24.25 KB)

下載次數: 5

2023-3-20 11:11

執行前:

下載 (292.76 KB)

2023-3-20 11:12

執行結果:

下載 (295.41 KB)

2023-3-20 11:13

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