vba 批量新建工作表

一 c 列沒有重複值

初始表：

插入工作表：

sub

shtadd()
rem******************** 根據c列的值新建不同的工作表
dim i as
integer, sht as
worksheet
i = 2
'第一條記錄的行號為2
set sht = worksheets("
成績表"
) 
dowhile sht.cells(i, "
c") <> ""
'定義迴圈條件
worksheets.add after:=worksheets(worksheets.count) '
在所有工作表後插入新工作表
activesheet.name = sht.cells(i, "
c").value '
更改工作表的標籤名稱
i = i + 1
'行號增加 1
loop
end sub

二、c 列有重複值

初始表：

插入表：

sub

shtadd()
rem******************** 根據c列的班級名新建不同的工作表。
dim i as
integer, ws as
worksheet
i = 2
'第一條記錄的行號為2
set ws = worksheets("
成績表"
) 
dowhile ws.cells(i, "
c") <> ""
'定義迴圈條件
onerror
resume
next
'當沒有對應班級工作表時，忽略下一行**引起的執行是錯誤
if worksheets(ws.cells(i, "
c").value) is
nothing
then
worksheets.add after:=worksheets(worksheets.count) '
在所有工作表後插入新工作表
activesheet.name = ws.cells(i, "
c").value '
更改工作表的標籤名稱
endif
i = i + 1
'行號增加1
loop
end sub

VBA 批量修改工作表名稱

適用於一張表中有大量的sheet，這些sheet需要按照一定的規律命名 1 在 中按下alt f11開啟巨集命令編輯區。插入如下的 然後執行。sub editsheetname for i 2 to worksheets.count worksheets i name 資訊系統情況 系統 i 1 n...

新建工作空間的基本配置

相信大家在用eclipse開發的過程中肯定遇到過工作空間不好用，需要更換工作空間的情況，新建好乙個工作空間後，我們需要做怎樣的配置才能正常的開始編寫 不會在編寫的過程 中出現問題，下面就讓我們按步驟的配置一下乙個新的工作空間。1.設定工作空間的預設編碼為utf 8 2.設定我們的jsp頁面的預設編碼...

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

一 需求 根據sheet1所列名稱，新增並重命名新的工作表。二 實現 1.按照從前往後的順序 sub cre ren sheets dim num 定義為integer counta sheet1.range a a num是非空單元格數 2.按照從後往前的順序 sub cre ren sheets...