[發問] 針對EXCEL VBA　儲存格欄位個數新增分頁

本帖最後由 s13983037 於 2014-11-22 23:23 編輯

大大們你們好我想請問一下我想針對工作表的儲存格從A欄的資料建立一個一個的分頁
可以去針對A欄有幾個資料就建立幾個分頁嗎想把紅色的部分改成類似成Worksheets.Count
不然每次都會跳出如圖附件2 感謝幫忙

----想修改----
Dim I as Integer
For I = 1 To 100
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Sheets(1).Range("A" & I)
Next
----想修改----

-----相關範例-----
For i = 1 To Worksheets.Count
Cells(i, 1) = Sheets(i).Name
Next i

Q7.png (8.69 KB)

附件1

Q8.png (12.97 KB)

附件2

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

2^#

發表於 2014-11-23 03:54 | 只看該作者

大大們你們好我想請問一下我想針對工作表的儲存格從A欄的資料建立一個一個的分頁
可以去針對A欄有幾個 ...
s13983037 發表於 2014-11-22 23:22

Sub nn()
Dim lRow&
lRow = 1
Do While Cells(lRow, 1) <> ""
With Sheets.Add(after:=Sheets(Sheets.Count))
.Name = Sheets(1).Cells(lRow, 1)
lRow = lRow + 1
End With
Loop
End Sub

複製代碼

TOP

s13983037

中學生 Rank: 2

帖子: 60
主題: 26
精華: 0
積分: 93
點名: 0
作業系統: Windows
軟體版本: Windows 7
閱讀權限: 20
註冊時間: 2014-9-8
最後登錄: 2020-4-15

3^#

發表於 2014-11-23 10:55 | 只看該作者

回復 2# luhpro

大大您好我想請問一下如果我想批次修改工作表 Sheets.Add(after:=Sheets(Sheets.Count))這個部份是否要更改成某個函數??還是或者我可以抓到A欄的項目個數
當我去抓A欄的項目個數會變成數字可以抓但如果是字串抓不了這有其他解決方式嗎麻煩了感謝
Worksheets(1).Range("A:A").Select
RowCounts = Application.Count(Selection)

Dim lRow&
  lRow = 1
  Do While Cells(lRow, 1) <> ""
With Sheets.Add(after:=Sheets(Sheets.Count))
   .Name = Sheets(1).Cells(lRow, 1)
   lRow = lRow + 1
End With
  Loop

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

4^#

發表於 2014-11-25 23:31 | 只看該作者

本帖最後由 luhpro 於 2014-11-25 23:32 編輯

回復 luhpro
大大您好我想請問一下如果我想批次修改工作表 Sheets.Add(after:=Sheets(Sheets. ...
s13983037 發表於 2014-11-23 10:55

程式已經達到你的需求了喔.

Dim lRow& ' 定義 lRow 為長整數
lRow = 1 ' 從列號為 1 (即第 1 列) 開始抓名稱
  Do While Cells(lRow, 1) <> "" ' 執行迴圈,依次抓名稱直到 [A?] 儲存格沒資料為止, ?即列號在此為lRow
With Sheets.Add(after:=Sheets(Sheets.Count)) ' 新增一個 Sheet 放在最後面, 名稱為系統預設 (從此行開始直到 End With , 之間以 . 開頭的物件, 執行時會先以此 Sheet 工作表物件取代開頭的 . 再執行指令)
   .Name = Sheets(1).Cells(lRow, 1) ' 將此 Sheet 名稱更改為 [A?] 儲存格內的值, ?即列號在此為lRow
   lRow = lRow + 1 ' 列號加1
End With
  Loop ' 繼續迴圈

TOP