VBA之建表时避免重名

工作中会遇到按照a列单元格的值,来新建后面的表,并且后面的表名字等于单元格的值,但是新建单元格时,如果名字重复会提示
在这里插入图片描述
Sub xinjianbiao()
Dim sht As Worksheet
Dim k As Integer

For i = 1 To 3
k = 0
For Each sht In Sheets
If sht.Name = Sheet1.Range(“a” & i) Then
k = 1
End If
Next

If k = 0 Then
    Sheets.Add after:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = Sheet1.Range("a" & i)
End If

Next
End Sub

这里首先要定义一个K=0来做标记
当发现所有的sht名字里有一个是跟我们的"a" & i名字相同,就把k改为1
后面判断k等于0,则添加表

发布了36 篇原创文章 · 获赞 2 · 访问量 3162
展开阅读全文

没有更多推荐了,返回首页

©️2019 CSDN 皮肤主题: 大白 设计师: CSDN官方博客

分享到微信朋友圈

×

扫一扫,手机浏览