返回列表 上一主題 發帖

EXCEL 快速參照工作表

EXCEL 快速參照工作表

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

回復 1# sschristy


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

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

執行前:
20230320-1.jpg
4 天前 11:12


執行結果:
20230320-2.jpg
4 天前 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
看得懂是應該的,懂得應用才像學生,臉皮厚點學會更謹慎積極

TOP

        靜思自在 : 世上有兩件事不能等:一、孝順 二、行善。
返回列表 上一主題