编写VBA实现隔行乘1.05遇类型不匹配错误求助

错误原因 #

1. 直接对Range("Q" & i & ":BC" & i).Value做乘法运算，这个属性返回的是单元格数组，VBA无法直接让数组与标量1.05进行运算，因此触发类型不匹配错误。
2. 原代码未判断当前行的M列是否非空，不符合你“仅处理M列非空行”的需求。

修正后的基础版代码 #

Sub MultiplyEverySecondRow()
    Dim lastRow As Long
    Dim i As Long
    Dim cell As Range
    
    lastRow = Cells(Rows.Count, "M").End(xlUp).Row
    ' 从第11行开始，每隔一行遍历
    For i = 11 To lastRow Step 2
        ' 先检查当前行M列是否非空
        If Not IsEmpty(Cells(i, "M")) And Cells(i, "M").Value <> "" Then
            ' 逐个处理目标区域的单元格
            For Each cell In Range("Q" & i & ":BC" & i)
                ' 仅对数值型单元格做乘法，避免文本单元格报错
                If IsNumeric(cell.Value) Then
                    cell.Value = cell.Value * 1.05
                End If
            Next cell
        End If
    Next i
End Sub

关键修改点 #

• 增加M列非空判断：If Not IsEmpty(Cells(i, "M")) And Cells(i, "M").Value <> ""，确保只处理符合条件的行。
• 改用逐个遍历单元格的方式，对每个数值型单元格单独执行乘法，规避数组运算的类型冲突。
• 新增IsNumeric判断，防止目标区域存在文本内容导致运算报错。

大数据量高效版代码 #

如果处理的行数很多，推荐用数组批量处理，减少VBA与Excel单元格的交互次数，提升运行速度：

Sub MultiplyEverySecondRow_Fast()
    Dim lastRow As Long
    Dim i As Long
    Dim targetArr As Variant
    Dim col As Integer
    
    lastRow = Cells(Rows.Count, "M").End(xlUp).Row
    For i = 11 To lastRow Step 2
        If Not IsEmpty(Cells(i, "M")) And Cells(i, "M").Value <> "" Then
            ' 将目标区域加载到数组
            targetArr = Range("Q" & i & ":BC" & i).Value
            ' 遍历数组列
            For col = LBound(targetArr, 2) To UBound(targetArr, 2)
                If IsNumeric(targetArr(1, col)) Then
                    targetArr(1, col) = targetArr(1, col) * 1.05
                End If
            Next col
            ' 将数组写回单元格
            Range("Q" & i & ":BC" & i).Value = targetArr
        End If
    Next i
End Sub

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