如下 把不连续值填在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