迴圈跑不停的問題
附件：[attach]34284[/attach][font=Verdana][color=Blue]Drr = Sheets("DATA").Range([DATA!P1], [DATA!Q65536].End(3)) [/color][color=Green] '列6[/color]
[color=Blue]For ii = 2 To UBound(Drr)[/color]
StrRng = "1" ' InputBox("請輸入DATA!各搜尋比對的起始期數", "輸入期數")
Nrange = "1903" ' InputBox("請輸入DATA!各搜尋比對的迄止(開獎)期數", "輸入期數")
num = "50" 'InputBox("請輸入效果檔A︰H複製的期距數範圍", "輸入距期數")
'RrngA = InputBox("請輸入各第一個比對的基準期數", "輸入第一個期數")
[color=Blue]RrngA = Drr(ii, 1)[/color] [color=Green] '列13[/color]
CrngA = "10" 'InputBox("請輸入各""第一個""比對的欄位數識別碼", "輸入識別碼(10~60)")
'RrngB = InputBox("請輸入各第二個比對的基準期數", "輸入第二個期數或不輸入(按Enter)")
[color=Blue]RrngB = Drr(ii, 2)[/color] '[color=Green]列16[/color]
CrngB = "10" 'InputBox("請輸入各""第二個""比對的欄位數識別碼", "輸入識別碼(10~60)或不輸入(按Enter)")
Order = "0" 'InputBox("請輸入增加的邏輯條件條件之起迄序號", "輸入序號(1~99)或不增加(按Enter)")
Number = "1-49" ' InputBox("請輸入各指定的相同號碼", "輸入號碼(1~49)")
Ncount = "1" ' InputBox("請輸入驗證版的連續次數", "輸入次數(1~10)")
[b] ：
：
：[/b]
[color=Blue]Next ii [/color] [color=Green] '列823[/color]
[color=Red]問題：[/color]
應該只要跑出 [color=Blue]7C_0_1903期_50_1898_10+1897_10_1次_1-49[/color] 的資料夾(以下簡稱[b][color=Blue]A[/color][/b]資料夾)[color=Blue][b]即可[/b][/color]；
但卻[color=Red]多跑出 7C_0_1903期_50__10_1次_1-49[/color]的資料夾(以下簡稱[b][color=Red]B[/color][/b]資料夾)~
[b]且[color=Red]B[/color]資料夾一直不停止的[b][color=Red]重複產生[/color][/b]與[b][color=Blue]A[/color][/b]資料夾內的[color=Red]相同內容[/color]。[/b]
[b]請問：要[color=Blue]如何停止[/color]多餘的迴圈？
謝謝！[/b]
[/font] [b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=117425&ptid=23442]1#[/url] [i]ziv976688[/i] [/b]
Q3~Q50有看不見的資料，游標放在Q2，然後Ctrl+下箭頭會直接跑到Q9，在按一次就到Q50，
正常如果中間都是空白要應該到最後一列65536，所以Drr可以改為由上往下，謝謝
Drr = Sheets("DATA").Range([DATA!P1], [DATA![color=Red]Q1[/color]].End([color=Red]4[/color])) '列6 [b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=117428&ptid=23442]2#[/url] [i]samwang[/i] [/b]
[font=Verdana][color=Blue]Q3~Q50有看不見的資料，游標放在Q2，然後Ctrl+下箭頭會直接跑到Q9，在按一次就到Q50，[/color]
[b]學到檢視儲存格有無隱藏資料的技巧~
感謝您細心的檢視問題之所在和耐心指導~感恩 [/b]:handshake
[/font]
頁:
[1]