返回列表 上一主題 發帖

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

luhpro

帖子
824 
主題
6 
精華
0 
積分
904 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2023-12-24 
1# 跳轉到 »
發表於 2014-11-23 03:54 | 顯示全部帖子
大大們你們好 我想請問一下 我想針對 工作表的儲存格從A欄的資料 建立一個一個的分頁
可以去針對A欄有幾個 ...
s13983037 發表於 2014-11-22 23:22
  1. Sub nn()
  2.   Dim lRow&
  3.   
  4.   lRow = 1
  5.   Do While Cells(lRow, 1) <> ""
  6.     With Sheets.Add(after:=Sheets(Sheets.Count))
  7.       .Name = Sheets(1).Cells(lRow, 1)
  8.       lRow = lRow + 1
  9.     End With
  10.   Loop
  11. End Sub
複製代碼

TOP

luhpro

帖子
824 
主題
6 
精華
0 
積分
904 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2023-12-24 
2#
發表於 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

        靜思自在 : 忘功不忘過，忘怨不忘恩。
返回列表 上一主題