如下 把不連續值填在sheet2 a1 a2 ...... myarr(i,1) 會依據把你填的值讀出來給你用 btw 我也是非資訊科班，十分羨慕的愚者 XD... Private Sub CommandButton1_Click() Dim myarr As Variant myarr = Sheet2.Range("a1:a100").Value For i = 1 To UBound(myarr, 1) If myarr(i, 1) = Empty Then Exit For MsgBox myarr(i, 1) Next i End Sub ※ 引述《higger (朝鄉而行)》之銘言： : 標題: [VBA ] 怎麼讓程式迴圈考慮不連續的值(1，4，10，16) : 時間: Tue Oct 30 22:45:47 2007 : : : : 用vba寫了一個報表列印工具~ : 正常是讓它從1，2，3這樣跑下去~ : (打入1，則表內函數會去勾1的對應項目) : : 問題在... : 我頂多只能讓它從1跑下去.... : 或指定從6跑到40這樣 : : 如果今天我想讓它跑不連續值... : 比如跑2、5、9、14四筆 : 這四個數間距都不同~ : 我可以用for~next來寫嗎??? : : 或說那四個值在 sheet2!a1:a4 中~ : 要怎麼寫去引用呢? : : : ps.我用四個變數~配合inputbox來輸入~這個請不要考慮~ : : 謝謝~~~ : : 非資訊科系~十分羡慕科班出身的愚者留 : : : : -- : : -- :

※ 發信站: 批踢踢實業坊(ptt.cc) : ◆ From: 221.169.64.169 : 推 BearWu:我以VB概念的話，會將所輸的值，存到一個文字陣列，再用FOR 10/30 23:10 : → BearWu:來呼叫這個文字陣列，不過VBA適不適用了... 10/30 23:10 --

※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.217.216.53