標題: [發問] 請大家幫我看這個問題 [打印本頁]

---

作者: sandra_wang    時間: 2010-12-14 15:29     標題: 請大家幫我看這個問題

本帖最後由 sandra_wang 於 2010-12-14 17:02 編輯

[attach]4084[/attach][attach]4083[/attach]我想重Cells(6,2)排出這樣的順序，
第一碼是從1開始，到Cells(1,2)的數字
第二碼是下底線"_"
第三碼是從1開始，到Cells(6,1)的數字
請問我要怎麼寫VBA呢?
我寫出來的跑都不對，請大家幫我解答一下，謝謝!
檔案在附件。
(附件更新了~)

---

作者: sandra_wang    時間: 2010-12-14 17:03

回復 1# sandra_wang


    我的附件更新了!

---

作者: GBKEE    時間: 2010-12-14 17:10

回復 2# sandra_wang

1. Sub aa()
   
2. Dim a As Integer, b As Integer, k As Integer
   
3. k = 2
   
4. For a = 1 To Cells(1, 2)
   
5.     For b = 1 To Cells(6, 1)
   
6.         Cells(6, k) = a & "_" & b
   
7.         k = k + 1
   
8.     Next b
   
9. Next a
   
10. End Sub

複製代碼

---

作者: sandra_wang    時間: 2010-12-14 17:36

回復 3# GBKEE


    感謝GBKEE的解答，我知道哪裡寫錯了!:)

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)