工作表的新增與刪除
在工作簿中新增工作表使用
add方法,如下面的**所示。
#001
sub addsh()
#002
dim sh as worksheet
#003
with worksheets
#004
set sh = .add(after:=worksheets(.count))
#005
sh.name = "資料"
#006
end with
#007
end sub
**解析:
addsh
過程使用
add方法在工作簿中新建「資料」工作表。 第
2行**宣告變數
sh為工作表物件。 第
4行行**使用
add方法在工作簿的最後新建「資料」工作表。
add
方法應用於
sheets
和worksheets
物件時新建工作表、圖表或巨集表,語法如下:
expression.add(before, after, count, type) 引數
before
是可選的,指定工作表物件,新建的工作表將置於此工作表之前。 引數
after
是可選的,指定工作表物件,新建的工作表將置於此工作表之後。 如果
before
和after
兩者均省略,則新建的工作表將插入到活動工作表之前。 引數
count
可選,要新建的工作表的數目。預設值為1。
引數type
可選,指定新建的工作表型別。 第
5行**將新增的工作表重新命名為「資料」。
如果需要在工作簿中批量新增工作表,可以使用下面的**。
#001
sub addsh_2()
#002
dim i as integer
#003
dim sh as worksheet
#004
for i = 1 to 10
#005
set sh = sheets.add(after:=sheets(sheets.count))
#006
sh.name = i
#007
next
#008
end sub
**解析:
addsh_2
過程使用
for...next
語句和add
方法在工作簿中新增
10張工作表並將新增的工作表依次重新命名
**豆豆部落格
VBA 遍歷工作表的方法
在工作中,經常需要遍歷工作表,這裡展示最基本的功能,查詢工作表的個數,其餘功能大同小異 方法一 sub test dim i as integer dim s as integer for i worksheets.count to 1step 1 s s 1next msgbox 共有 s 張表 ...
VBA 引用工作表的方式
在應用vba時,可能需要在不同的工作表中進行切換,下面是引用不同工作表的集中方法 工作表名稱是指顯示在工作表標籤中的文字,工作表名稱可以使用 worksheets 集合和sheets 集合兩種引用方式。sub test worksheets 工作表3 activate sheets 工作表3 act...
vba 批量新建工作表
一 c 列沒有重複值 初始表 插入工作表 sub shtadd rem 根據c列的值新建不同的工作表 dim i as integer,sht as worksheet i 2 第一條記錄的行號為2 set sht worksheets 成績表 dowhile sht.cells i,c 定義迴圈條...