標題: [發問] 有問題,未解決 [打印本頁]

---

作者: john2006168    時間: 2011-4-19 13:46     標題: 有問題,未解決

Dim A As Integer


請問下面有什麼問題?執行後有error message.
Dim A As Integer
A = 2
For A = 2 To 20
Worksheets("Sample").Copy after:=Worksheets(Worksheets.Count)

Worksheets(Worksheets.Count).Name = Sheet1.Cells(A, 1).Value
Worksheets(Worksheets.Count).Range("I2") = Sheet1.Cells(A, 1).Value
Worksheets(Worksheets.Count).Range("I3") = Sheet1.Cells(A, 2).Value

A = A + 1

Next

---

作者: Hsieh    時間: 2011-4-19 14:17

迴圈內變數何故要加1?
Sheet1.Cells(A, 1).Value
的值若為空字串就會出錯

---

作者: GBKEE    時間: 2011-4-19 14:21

回復 1# john2006168
你沒附檔上來我猜錯誤可能是
Worksheets(Worksheets.Count).Name = Sheet1.Cells(A, 1).Value -> 為空白 或是有重複的字串

---

作者: john2006168    時間: 2011-4-20 23:24

本帖最後由 john2006168 於 2011-4-20 23:27 編輯

回復 3# GBKEE


    多謝2位老師的提醒,問題已解決,另一方面,我想問如果我不想固定a的值只是到20,我應該怎麼改?

Dim A As Integer
A = 2
For A = 2 To 20
Worksheets("Sample").Copy after:=Worksheets(Worksheets.Count)

Worksheets(Worksheets.Count).Name = Sheet1.Cells(A, 1).Value
Worksheets(Worksheets.Count).Range("I2") = Sheet1.Cells(A, 1).Value
Worksheets(Worksheets.Count).Range("I3") = Sheet1.Cells(A, 2).Value

---

作者: Hsieh    時間: 2011-4-21 00:12

For A = 2 To [A65536].end(xlup).Row

---

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