Sub addsheet Dim i As Integer j As Integer banknm As String Dim ws As Worksheet i = 2 With ThisWorkbookWorksheetsSheet1 Do While Cellsi 1 banknm = Cellsi 2

这个代码的主要思路是：

1. 定义变量 i 和 j 为整型变量，banknm 为字符串变量，ws 为工作表变量。

2. 从第二行开始循环，直到第一列为空。

3. 在循环内，获取第二列单元格中的银行名称。

4. 遍历所有工作表，判断是否存在同名的工作表，如果存在则删除。

5. 在工作簿中添加一个新的工作表，并将名称设置为银行名称。

6. 在新添加的工作表中，添加表头。

7. 循环变量 i 加 1，进入下一轮循环。

该代码的主要目的是根据 Sheet1 中第二列的银行名称，创建新的工作表，并在新的工作表中添加表头。如果已经存在同名的工作表，则删除旧的工作表并创建新的工作表。