如何讓Sheet2=I3，然後又讓該檔名可以繼續變更? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何讓Sheet2=I3，然後又讓該檔名可以繼續變更?

返回列表下一主題上一主題發帖

[發問] 如何讓Sheet2=I3，然後又讓該檔名可以繼續變更?

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

1^# 跳轉到 »

發表於 2012-10-15 13:57 | 顯示全部帖子

回復 1# av8d

參考看看

活頁簿1.rar (9.34 KB)

Sub 巨集1()
aois = ActiveSheet.Range("A2").CurrentRegion.Rows.Count
Sheets("工作表1").Name = "總表"
For gaa = 2 To aois
Sheets.Add After:=Sheets(Sheets.Count)
Sheets("工作表" & gaa - 1).Select
Sheets("工作表" & gaa - 1).Name = 工作表1.Cells(gaa, 1)
Next
End Sub

複製代碼

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

靜思自在 : 要用心，不要操心、煩心。

返回列表下一主題上一主題