为什么我会得到一个types不匹配错误

我正在尝试在VBA for Excel中编写子例程以创build客户价目表。

当我通过例程时，我得到了一个types不匹配的行，我已经放置星号。 有人可以解释我做错了吗？ 下面是我写到目前为止的代码，可能还有更多的错误，我还没有发现。

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

你需要得到的行，这将是一个数字