VBA 工作表的新增與刪除

2021-06-06 15:46:39 字數 1353 閱讀 3988

工作表的新增與刪除

在工作簿中新增工作表使用

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 定義迴圈條...