[算表] VBA的自動編號
軟體: EXCEL
版本: 2013
各位好
我想要用EXCEL VBA寫個自動編號的功能
當B行的儲存格有資料時，前面的A儲存格就會有編號
但是B行儲存格不一定會有資料，所以可能會變成:
A B
1 data
2 data
3 data
下面是我寫的內容:
Private Sub CommandButton1_Click()
Worksheets("sheet1").Range("A2").Value = 1
For j = 1 To 10
If Worksheets("sheet1").Range("B" & j) <> "" Then
Worksheets("sheet1").Range("A" & j).Select
ActiveCell.End(xlUp).Select
i = ActiveCell.Value
Worksheets("sheet1").Range("A" & j).Value = i + 1
Next j
End Sub
請參考下面圖片:
https://www.dropbox.com/s/47iku82etu98w3h/error1.jpg?dl=0
https://www.dropbox.com/s/h9c1is8v7jv0kc2/error2.jpg?dl=0
但是出現錯誤訊息，說我的型態不符
錯誤標記在這一行
Worksheets("sheet1").Range("A" & j).Value = i + 1
還請大家幫我看看是什麼地方出問題
是因為一次用了兩個變數嗎? 還是 我用到錯的語法?
麻煩各位了
謝謝!!
--
落霞與孤鶩齊飛 秋水共長天一色
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 49.159.11.188
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1443535549.A.BBD.html
→
09/29 22:25, , 1F
09/29 22:25, 1F
→
09/30 08:35, , 2F
09/30 08:35, 2F
→
09/30 08:39, , 3F
09/30 08:39, 3F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
