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

gift1314520

請問神人高手們
如果碰到資料型態有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程式該如寫好呀??
...

瀏覽完整內容，請先 註冊 或 登入會員

set529

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

Midnight-Angel

建立以下程式碼

1. Sub Test1()
   
2. y = 0
   
3. 
   
4. For i = 1 to 1000
   
5. k = k + 1
   
6. ActiveCell.Offset(i - 1, 0).Value = k + y
   
7. If k = 10 Then k = 0
   
8. If i > 99 Then y = 10
   
9. If i > 199 Then y = 20
   
10. If i > 299 Then y = 30
    
11. If i > 399 Then y = 40
    
12. If i > 499 Then y =50
    
13. If i > 599 Then y = 60
    
14. If i > 699 Then y =70
    
15. If i > 799 Then y = 80
    
16. If i > 899 Then y = 90
    
17. Next i
    
18. 
    
19. End Sub

複製代碼

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

瀏覽完整內容，請先 註冊 或 登入會員

homeboy2014

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

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

建立以下程式碼

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

可不可以再繼續縮成這樣

Sub Test1()
...

瀏覽完整內容，請先 註冊 或 登入會員