[發問] [發問]如何用迴圈取出陣列值，不斷放到一個固定範圍

yurckr

請教以下寫法

For i = 1 To

myarray = Split((Sheets(moneyprlist).Cells(i + 2, 14)), ",", , 1)

For j = 0 To UBound(myarray)

Sheets(moneyprlist).Cells(i + 2, j + 13) = myarray(j)
timer = timer + 1

Next  j

If timer = 6 Then

MsgBox "已經搜集六個了可以印囉"

Call ptprint

endif

end  sub

我想讓這程式的作用是將陣列裏的值放到 m3:m8 的固定範圍內，一共六個空格，當放滿六個時則清除該飯圍的值
繼續再取出六個值放入該飯圍，直到取完陣列裏所有的值為止

不知道該怎麼寫 請指導 謝謝

yurckr

請各位高手指導一下怎麼寫 感謝

yurckr

arraytest.rar (17.35 KB)

下載次數: 10

2011-7-17 17:24

回復 3# GBKEE

感謝您的關注，想表達的意司已經在檔案中 請您指教謝謝