新手求助错在哪里

茄子爱蕃茄

跟着实例做的，不知道自己哪里错了
实例是这样的
Sub 新建部门()
Dim ws As Worksheet
For Each ws In Worksheets
    If ws.Name = "财务部" Then End
Next ws
    Worksheets.Add.Name = "财务部"
End Sub

我跟着是这样做的
Sub kl()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name = "abc" Then
End
Next ws
Worksheet.Add.Name = "abc"
End Sub

提示next 没有for
试着在end 后面加了 end if
但是还是错误，停留在Worksheet.Add.Name = "abc"

hdbk

Worksheets.Add.Name = "abc"

茄子爱蕃茄

hdbk 发表于 2018-7-30 22:55
Worksheets.Add.Name = "abc"

谢谢，主要有些疑问。写这串代码是为了增加一个表格，这样结尾的话增加的不是一个合集吗

iwangyi

要学着调试，按F8逐句执行

hdbk

茄子爱蕃茄 发表于 2018-7-30 23:12
谢谢，主要有些疑问。写这串代码是为了增加一个表格，这样结尾的话增加的不是一个合集吗

因为你指定了新增表格名为abc,怎么可能是增加一个合集呢？不能用worksheets是复数就表示增加一堆表格。

茄子爱蕃茄

hdbk 发表于 2018-7-31 09:49
因为你指定了新增表格名为abc,怎么可能是增加一个合集呢？不能用worksheets是复数就表示增加一堆表格。

又百度了一下，又在VBA里试了一下，是因为worksheet没有add属性吗

要的就是你

要想插入一个合集，只能一个一个插入，要不用循环语句插入