[算表] VBA的自動編號

[anhbclbe (Crush)]

軟體: 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
→ soyoso: https://goo.gl/c9DTjw 試試
→ anhbclbe: 請問迴圈內的（"B" & i）後面沒有寫.value是因為省略
→ soyoso: 如原po所述