给位网友你们好！我想用vbs在wps上编写一个具有储存和检验功能的一个代码，代码如下但是实际运行的时候出现一点问题--报“类型不匹配”。有问题的部分已经标识出来了，还望各位网友多多指点一下，谢谢！

Sub 储存()

Dim x As Long
Dim 规格 As Long
Dim 行数 As Long
Dim 型号 As String

x = WorksheetFunction.CountA(Sheets("库存").Range("B:B")) + 2
Sheets("库存").Cells(x, 2).Value = x - 2
Sheets("库存").Cells(x, 3).Value = Sheets("表单").Range("H6")
Sheets("库存").Cells(x, 4).Value = Sheets("表单").Range("H9")
Sheets("库存").Cells(x, 5).Value = Sheets("表单").Range("H12")
Sheets("库存").Cells(x, 6).Value = Sheets("表单").Range("H15")
Sheets("库存").Cells(x, 7).Value = Sheets("表单").Range("J18")
Sheets("库存").Cells(x, 8).Value = Sheets("表单").Range("H21")

规格 = Sheets("表单").Range("H9").Value
型号 = Sheets("表单").Range("H12").Value
{行数 = WorksheetFuntion.Math(规格 & 型号, Sheets("板材明细").Range("C3:C27") & Sheets("板材明细").Range("D3:D33"), 0, 1)}-----**此处是有问题的部分**


If Sheets("板材明细").Cells(行数 + 2, 7).Value < Sheets("板材明细").Cells(行数 + 2, 8).Value Then
MsgBox 规格 & "的库存不足，请及时补充！", vbExclamation, "注意"
End If


Call 重设

End Sub