Dear,
我想以B欄的資料列數為準,在A欄自動產生流水號(從A2開始以1.2.3填入)
可是出現都是B欄的總列數,請問是哪個步驟...有問題??
With Workbooks("理貨單.xlsx").Sheets("訂單")
Workbooks("理貨單.xlsx").Sheets("訂單").Activate
xRow = Cells(Cells.Rows.Count, "B").End(xlUp).Row
J = 1
For J = 1 To xRow
Range("A2:A" & xRow).Value = J
J = J + 1
Next
End With
End Sub作者: jcchiang 時間: 2020-2-17 10:28
回復 1#PJChen
試試看
With Workbooks("理貨單.xlsx").Sheets("訂單")
Workbooks("理貨單.xlsx").Sheets("訂單").Activate
xRow = Cells(Cells.Rows.Count, "B").End(xlUp).Row
i = 1
For j = 2 To xRow
Range("A" & j).Value = i
i = i + 1
Next
End With作者: PJChen 時間: 2020-2-17 23:55