查看完整版本: 請問EXCEL 這種迴圈該如何寫-新手求助

論壇 › Visual Basic 語言 › 請問EXCEL 這種迴圈該如何寫-新手求助

gift1314520 發表於 2016-1-17 02:50 AM

請問EXCEL 這種迴圈該如何寫-新手求助

請問神人高手們
如果碰到資料型態有1000列
起頭前面1~100的資料，資料連續式欄位寫入1~10，直到寫到100列(共100個資料)結束共1~10共有10組

接下來101~200的資料，也是連續式寫入只是改寫11~20，直到200列(共100個資料)結束11~20也是10組

接來世201~300的資料，也是寫21~30，直到300列(共100個資料)結束21~30也是10組


以上這樣規則延續到共1000列資料完畢，請問這個EXCEL程式該如寫好呀??




拜託各位神人高手幫幫忙，小弟剛學VAB不久需要大家的幫幫忙~拜託{:34:}
...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div><div></div>

set529 發表於 2016-1-24 03:01 PM

Sorry...

本帖最後由 set529 於 2016-1-26 10:10 PM 編輯

Sorry...發文前未注意版規要求

Midnight-Angel 發表於 2016-8-24 12:52 PM

本帖最後由 darkjack 於 2016-8-24 11:38 PM 編輯

建立以下程式碼
Sub Test1()
y = 0

For i = 1 to 1000
k = k + 1
ActiveCell.Offset(i - 1, 0).Value = k + y
If k = 10 Then k = 0
If i > 99 Then y = 10
If i > 199 Then y = 20
If i > 299 Then y = 30
If i > 399 Then y = 40
If i > 499 Then y =50
If i > 599 Then y = 60
If i > 699 Then y =70
If i > 799 Then y = 80
If i > 899 Then y = 90
Next i

End Sub
點選開始序列的儲存格, 如A1,然後執行程式
...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div>

homeboy2014 發表於 2016-9-9 07:33 PM

Midnight-Angel 發表於 2016-8-24 12:52 PM static/image/common/back.gif
建立以下程式碼

點選開始序列的儲存格, 如A1,然後執行程式

可不可以再繼續縮成這樣

Sub Test1()
y = 0

For i = 1 to 1000
k = k + 1
ActiveCell.Offset(i - 1, 0).Value = k + y
If k = 10 Then k = 0
   
   For j = 1 To 9
   If i > j * 100 - 1 Then y = j * 10
   next

Next i

End Sub...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div>