Excel VBA按用户输入批量相乘单元格范围报错求助

类型不匹配错误的核心原因 #

• 输入未做验证：InputBox返回的是字符串类型，直接赋值给Integer变量qty，若用户输入非数字内容会直接触发类型不匹配。
• 单元格引用错误：循环中你试图用数字qty乘以A列的零件号（文本类型），数字与文本相乘必然导致类型不匹配。实际应该取C列的BoM数量（数字类型）乘以qty，再写入D列。

修正后的代码 #

Sub GenerateWorkOrder()
    Dim qty As Variant
    Dim sourceWs As Worksheet
    Dim targetWs As Worksheet
    Dim lastRow As Long
    
    ' 验证用户输入有效性
    qty = InputBox("请输入所需装配体数量：")
    If Not IsNumeric(qty) Then
        MsgBox "请输入有效数字！", vbExclamation
        Exit Sub
    End If
    qty = CLng(qty) ' 转为长整型，避免Integer的范围限制
    
    ' 定义工作表对象，避免依赖ActiveSheet的潜在问题
    Set sourceWs = ThisWorkbook.Worksheets("C63 TOE LINK KIT")
    Set targetWs = ThisWorkbook.Sheets.Add
    targetWs.Name = "WorkOrder"
    
    ' 写入表头
    targetWs.Range("A1:D1").Value = Array("Part Number", "Part Name", "BoM Qty.", "Qty.")
    
    ' 动态获取源数据最后一行，避免固定范围的局限性
    lastRow = sourceWs.Range("A6").End(xlDown).Row
    ' 复制源数据到目标表
    targetWs.Range("A2:A" & lastRow - 4).Value = sourceWs.Range("A6:A" & lastRow).Value
    targetWs.Range("B2:B" & lastRow - 4).Value = sourceWs.Range("B6:B" & lastRow).Value
    targetWs.Range("C2:C" & lastRow - 4).Value = sourceWs.Range("E6:E" & lastRow).Value
    
    ' 批量计算所需数量，无需循环
    targetWs.Range("D2:D" & lastRow - 4).Formula = "=C2*" & qty
    ' 若要将公式转为固定值，取消下面一行注释
    ' targetWs.Range("D2:D" & lastRow - 4).Value = targetWs.Range("D2:D" & lastRow - 4).Value
End Sub

其他实现单元格范围相乘的高效方法 #

• 数组运算：将数据读入内存数组完成运算，是速度最快的方式，适合大数据量场景：

Dim bomQtyArr As Variant
Dim resultArr As Variant
Dim i As Long

bomQtyArr = targetWs.Range("C2:C" & lastRow - 4).Value
ReDim resultArr(1 To UBound(bomQtyArr), 1 To 1)

For i = 1 To UBound(bomQtyArr)
    resultArr(i, 1) = bomQtyArr(i, 1) * qty
Next i

targetWs.Range("D2:D" & lastRow - 4).Value = resultArr

• PasteSpecial批量运算：利用剪贴板的运算功能快速批量处理：

targetWs.Range("C2:C" & lastRow - 4).Copy
targetWs.Range("D2:D" & lastRow - 4).PasteSpecial Paste:=xlPasteValues
targetWs.Range("D2:D" & lastRow - 4).PasteSpecial Paste:=xlPasteAllOperationMultiply, _
                                                Operation:=xlMultiply, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

内容的提问来源于stack exchange，提问作者snt