Function 表存在(s)
For Each i In Sheets
If i.Name = s & "" Then 表存在 = 1 '連接空白是避免表格名為數(shù)值時格式不同
' Debug.Print i.Name = s
Next
End Function
Function 建表(s)
For Each i In Sheets
If i.Name = s Then Exit Function
Next
Sheets.Add(, Sheets(Sheets.Count)).Name = s
' Sheets.Add.Name = s'創(chuàng)建在前面
' Sheets.Add 方法 (Excel)：https://msdn.microsoft.com/zh-cn/library/office/ff839847
End Function
