一、需求
根據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 定義迴圈條...