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,则添加表