VBA增加sheet,重名时自动命名

原创 2007年09月23日 14:10:00

  VBA增加sheet,如何在出现重名时自动命名?如

 Sheets.Add
   ActiveSheet.Name = "mysheet"

如果已经存在名称为“mysheet”的sheet,如何使增加的sheet名称自动加上一个括号变成"mysheet(1)"呢? 即类似在某文件夹内不断复制同一文件的效果,代码如下:

Sub addsheets()
Dim i As Long, sh As String, temp As String, mysheet As Worksheet
Application.DisplayAlerts = False
Randomize
sh = InputBox("Please enter the newsheetname", , "sheet" & Int(Rnd * 6 + 1))
On Error GoTo here
For i = 0 To Sheets.Count
temp = sh & IIf(i = 0, "", "(" & i & ")")
Set mysheet = Sheets(temp)
Next
here:
Sheets.Add.Name = temp
Application.DisplayAlerts = True
End Sub

excel中用当天日期命名工作表名vba

excel 2007 abv
  • dkink
  • dkink
  • 2016年05月30日 20:04
  • 1583

excel中用当天日期命名工作表名vba

excel 2007 abv
  • dkink
  • dkink
  • 2016年05月30日 20:04
  • 1583

Excel VBA-批量将多个sheet表另存为单独的工作薄文件

欢迎使用Markdown编辑器写博客 本Markdown编辑器使用StackEdit修改而来,用它写博客,将会带来全新的体验哦: Markdown和扩展Markdown简洁的语法 代码块高亮 图...
  • Crystal_Data
  • Crystal_Data
  • 2016年08月06日 13:27
  • 6564

Excel中用VBA将根据列内容分割成多个工作表

Sub 工作表拆分2() '通过筛选方法完成需求,速度快,但当有合并单元格时就不能用。读者可以根据实际情况选用 Dim SplitCol As String, ColNum As Intege...
  • yu12345678900
  • yu12345678900
  • 2015年11月04日 11:54
  • 2237

使用VBA编程自动以exce表中的指定列分离出工作表

写了一个VBA宏程序,用来自动将EXCEL一列转换为不同的工作表。例如: 姓名  性别 张三  男 李四  女 通过该程序可以自动分离出“男”工作表和“女”工作表。先上代码,注释写的很清楚。 '时间:...
  • bestlanzi
  • bestlanzi
  • 2015年02月06日 07:22
  • 819

EXCEL取当前SHEET页是第几个SHEET页

需求: 一个Excel ,每一个 SHEET 页都有一个单元格,用来存放此 SHEET 页是第几个 SHEET 页。 场景: 设计了一个工作薄,有十几个工作表,每一个工作表,都有一个单元格,单元格...
  • ye1142262478
  • ye1142262478
  • 2017年03月01日 17:29
  • 954

Excel VBA入门(6) - Worksheet对象常用方法事件

1. 激活工作表 Active Dim ws As Worksheet Set ws = Application.WorkBooks(1).Worksheets(2) ws....
  • zn_yang
  • zn_yang
  • 2013年11月08日 10:25
  • 6828

关于Excel下通过VBA实现工作簿文件下工作表的合并

对于普通使用者而言,Excel是一个比较强大的数据处理工具。一般公司的普通职员常使用它来完成数据的录入分析,但是当面对处理经由多人按统一模板统计完成的录入数据分析时,数据将分散存放在多个.xlsx文件...
  • u013871461
  • u013871461
  • 2016年10月27日 09:13
  • 719

Excel VBA 从外部工作簿取数的5种方法

'======================================================= '1、循环单元格取数,效率最低,不可取,初学者易犯 '2、区域相等取数 '3、复...
  • 3150379
  • 3150379
  • 2017年02月23日 20:39
  • 748

vba excel电话号码的导入(sheet1 to sheet2)

excel模式为: sheet1: sheet2: 然后选择 工具—宏—vb编译器:加入模块 写入代码: Sub zxl_input_phone() Set sh2 =...
  • a771948524
  • a771948524
  • 2013年05月23日 17:09
  • 1678
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VBA增加sheet,重名时自动命名
举报原因:
原因补充:

(最多只允许输入30个字)