Question

我正在尝试插入一个宏，该宏在我的选择中计算空白值，然后使用该计数来循环宏以插入新的表格＆＃34; mycount＆＃34;次数。我如何做第二个循环部分？谢谢

     'cnt blank cells in col U
     Dim mycount As Long
     mycount = Application.WorksheetFunction.CountBlank(Selection)


    ‘add sheets for number of mycount
    Dim looper as integer
    Looper=mycount
    Do while looper <=mycount
    Sheets.add after:=ActiveSheet
    Loop

Answer 1

这将进入无限循环。您需要增加控制变量

Do while looper <=mycount
    Sheets.add after:=ActiveSheet
    looper=looper +1
 Loop

Answer 2

我认为你想要的是For Loop。

Dim mycount As Long
Dim i       as Long
mycount = Application.WorksheetFunction.CountBlank(Selection)

'This will add 'MyCount' number of sheets
for i = 1 to myCount
    Sheets.add after:=ActiveSheet
Next i`

Answer 3

这将添加新的工作表mycount次：

Sub Test()
Dim mycount As Long
    mycount = Application.WorksheetFunction.CountBlank(Selection)
For i = 1 To mycount
    Sheets.Add after:=Sheets(Sheets.Count)
Next i
End Sub

VBA循环功能n次

3 个答案: