新建表避免重名

问题描述：在表1中写了一列表名，用于给新建的表依次命名，但需防止名字出现重复的问题
思路
①用for循环判断表1中的表名是否会有等于已存在表名的情况
②在用if循环，借助k，若k值改变则说明表名亦存在，反之。

Sub t0()
Dim i, k As Integer
Dim sht As Worksheet
For i = 1 To Sheet1.Range("a65536").End(xlUp).Row
    k = 0
    If Sheets.Range("a" & i) = sht.Name Then
        k = 1
    End If
    If k = 0 Then
        Sheets.Add after:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = Sheet1.Range("a" & i)
    End If
    
Next
End Sub