excel vba 运行时错误1004
Subchecksheet()DimshtsheetAsWorksheetForEachshtsheetInSheetsIfshtsheet.Name="KK"ThenE...
Sub checksheet()
Dim shtsheet As Worksheet
For Each shtsheet In Sheets
If shtsheet.Name = "KK" Then Exit Sub
Next shtsheet
Set shtsheet = Sheets.Add(before, Sheets(1))
shtsheet.Name = "KK"
End Sub 展开
Dim shtsheet As Worksheet
For Each shtsheet In Sheets
If shtsheet.Name = "KK" Then Exit Sub
Next shtsheet
Set shtsheet = Sheets.Add(before, Sheets(1))
shtsheet.Name = "KK"
End Sub 展开
1个回答
展开全部
Dim i, ST
For i = 1 To Worksheets.Count
If Sheets(i).Name = "KK" Then Exit Sub
Next
Set ST = Sheets.Add(Sheets(1))
ST.Name = "KK"
For i = 1 To Worksheets.Count
If Sheets(i).Name = "KK" Then Exit Sub
Next
Set ST = Sheets.Add(Sheets(1))
ST.Name = "KK"
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
