如何在此VBA中添加工作表以确定重命名的工作表是否已存在？

private sub worksheet_selectionchange(byval target as range)

dim mm as string

dim a as string

dim i as integer

i = '获取活动单元格的行数。

if = 14 then '如果点周中的单元格列数等于 14

a = worksheets("sheet1").range("b" & i).value '将 sheet1 工作表中 BI（i 是所选单元格的行数）单元格的值分配给

worksheets("sheet2").range("c3") = a '在 sheet2 工作表中将 a 的值分配给 c3

mm = worksheets("sheet1").range("a" & i).value '将 sheet1 工作表中 ai（i 是所选单元格的行数）单元格的值指定为 mm

sheets("sheet2").copy after:=sheets(2) '复制 sheet2 工作表。

for each sh in worksheets

false'关闭删除提示。

if = mm then

truenextsheets("sheet2 (2)").name = mm '将 sheeet2（2） 命名为 mm 的值。

sheets("sheet1").select

end if

end sub

** 和以下注释：

private sub worksheet_selectionchange(byval target as range)

dim mm as string

dim a as string

dim i as integer

i = '获取活动单元格的行数。

if = 14 then '如果点周中的单元格列数等于 14

a = worksheets("sheet1").range("b" & i).value '将 sheet1 工作表中 BI（i 是所选单元格的行数）单元格的值分配给

worksheets("sheet2").range("c3") = a '在 sheet2 工作表中将 a 的值分配给 c3

mm = worksheets("sheet1").range("a" & i).value '将 sheet1 工作表中 ai（i 是所选单元格的行数）单元格的值指定为 mm

sheets("sheet2").copy after:=sheets(2) '复制 sheet2 工作表。

false '关闭提示，否则删除工作表时会出现提示。

for i=1 to '遍历每个工作表。

if sheets(i).name = mm then sheets(i).delete '如果工作表名称为 mm，请删除该工作表。

true '打开提示。

sheets("sheet2 (2)").name = mm '将 sheeet2（2） 命名为 mm 的值。

sheets("sheet1").select

end if

end sub

1.打开需要重命名的工作簿，例如，如果您需要5个工作表，则加粗或创建5个工作表。

2. 按 ALT+F11 组合键进入 VBA** 窗口源凳。

<>4.在工作表 1 中操作：冰雹震颤工具宏宏。

5. 选择要执行的宏的名称，然后执行。 然后，将所有工作表名称修改为相应**中A2单元格的内容。

6.如果要将其更改为其他名称，请放置sheets（x）。name = sheets(x).range("a2"表（x）。range("a2"修改它。

1.打开需要重命名的工作簿，例如，如果您需要5个工作表，则创建5个工作表。

2. 按 ALT+F11 组合键进入 VBA** 窗口。

4.在工作表1中操作：工具宏宏。

5. 选择要执行的宏的名称，然后执行。 然后，将所有工作表名称修改为相应**中A2单元格的内容。

6.如果要将其更改为其他名称，请放置sheets（x）。name = sheets(x).range("a2"表（x）。range("a2"修改它。

将以下**副本放入此工作簿并运行它。

sub a()

dim i as integer

for i = 1 to 100

after:=activesheet

inext i

end sub