為什么會出現類型不匹配錯誤

Question

我試圖在VBA中為Excel編寫一個子例程來創建客戶價格表。

當我逐步執行例程時，在放置星號的那一行出現類型不匹配的情況。 有人可以解釋我做錯了嗎？ 下面是我到目前為止編寫的代碼，可能還有更多錯誤尚未發現。

Sub Create_Customer_Price_List()

    Dim Counter1 As Integer
    Dim Counter2 As Integer
    Dim SectionNum As Integer
    Dim ProdNum As Integer
    Dim ProductID As String
    Dim ProductSection As String

    Worksheets("BH").Activate

    SectionNum = Range("J10", Range("J10").End(xlDown)).Rows.Count
    Range("J10").Select

    For Counter1 = 1 To SectionNum
        If ActiveCell.Value <> 0 Then
        ProductSection = ActiveCell.Offset(0, 1).Value
 *       Range("B9").Offset(Range("B9").End(xlDown), 3).Value = ProductSection


        End If

            ProdNum = Range("J10").Value

            For Counter2 = 1 To ProdNum
            ProductID = Range("L10").Value & Counter2

            Range("B9").Offset(Counter2, 0).Value = ProductID

            Next Counter2
        Range("J10").Offset(Counter1 + 1, 0).Select

    Next Counter1

End Sub

Answer 1

Range("B9").Offset(Range("B9").End(xlDown), 3).Value = ProductSection

應該：

Range("B9").Offset(Range("B9").End(xlDown).Row, 3).Value = ProductSection

您需要獲取該行，該行將是一個數字