Excel VBA 批量新建並重命名工作表

2021-09-24 23:21:21 字數 1186 閱讀 4865

一、需求

根據sheet1所列名稱,新增並重命名新的工作表。

二、實現

1.按照從前往後的順序

sub cre_ren_sheets()

dim num%

/* 定義為integer*/

counta

(sheet1.

range

("a:a"))

/* num是非空單元格數*/

2.按照從後往前的順序

sub cre_ren_sheets()

dim num%

counta

(sheet1.

range

("a:a"))

for i =

1 to num

sheets.add

sheets(1

).name = sheet1.

cells

(i,1

)/* sheet1=sheets(i+1), sheet1隨著新工作表的建立被往後擠,序列數隨之增大*/

next i

end sub

三、注意事項

1.**中的索引號和新建sheet預設命名不一定一致,**按照順序,工作簿只是名稱。

2.工作表的命名要求

bat批量拷貝檔案並重命名

echo off echo echo.echo 使用說明 輸入測試sql所在的目錄,測試sql檔案d100開頭,echo 會拷貝為bili,ios,uo,yyb開頭的檔案,並儲存在上一層目錄 echo.echo loop set p tmpsqlpath 請輸入測試sql的目錄 set sqlpat...

使用批處理批量複製檔案並重命名

1 首先,生成檔案列表,每一行記錄乙個檔名,這些檔名都儲存在filelist.txt中。20170603094607001.20170603094607002.20170603094607003.2 使用批處理,根據filelist.txt裡的內容,將20170603094607000.複製100次...

vba 批量新建工作表

一 c 列沒有重複值 初始表 插入工作表 sub shtadd rem 根據c列的值新建不同的工作表 dim i as integer,sht as worksheet i 2 第一條記錄的行號為2 set sht worksheets 成績表 dowhile sht.cells i,c 定義迴圈條...