VBA循环函数n次

2016-08-23 180 views -1 likes

-1

我试图插入一个宏，它在我的选择中计算空白值，然后使用该计数来循环宏以插入新工作表“mycount”次数。我如何做第二个循环部分？谢谢VBA循环函数n次

 '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

来源

2016-08-23 TarasM

有在若干变化[文档]（http://stackoverflow.com/documentation/vba/1873/flow-control-结构＃吨= 201608231550302751355）。 – Comintern

回答

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

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

来源

2016-08-23 15:51:48 cyboashu

谢谢你，工作很棒！ – TarasM

我想你想要的是一个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`

来源

2016-08-23 15:52:04

这将添加新的片材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

来源

2016-08-23 15:52:17 Brian

VBA循环函数n次

回答

相关问题