Excel VBA错误执行多行乘法

Question

遇到“类型不匹配”错误。

尝试在一个工​​作表“Sheet1”上取一个数字矩阵，除以第二个工作表“Sheet2”上的另一个数字矩阵，然后在第三个工作表“Sheet1”的矩阵上显示每个单元格结果

Sub MacroTest()

Worksheets("Sheet3").Range("C5") = Worksheets("Sheet1").Range("C5:DR124") / Worksheets("Sheet2").Range("C5:DR124")

End Sub

Answer 1

使用此代码，您可以在不同工作表和同一张工作表上的特定范围（您可以选择）上执行您需要的操作。

Sub RangeDiv()
    Dim RngFrom As Range
    Dim RngDiv As Range
    Dim RngTo As Range

    Dim R As Integer
    Dim C As Integer

    Set RngFrom = Sheets(1).Range("A1:E3")
    Set RngDiv = Sheets(1).Range("B6:F8")
    Set RngTo = Sheets(1).Range("C10:G12")

    'Check if all Rngs have the same number of rows and columns
    If RngFrom.Rows.Count <> RngDiv.Rows.Count Or RngFrom.Rows.Count <> RngTo.Rows.Count Then
        MsgBox ("Rngs rows number aren't equal")
        Exit Sub
    End If
    If RngFrom.Columns.Count <> RngDiv.Columns.Count Or RngFrom.Columns.Count <> RngTo.Columns.Count Then
        MsgBox ("Rngs columns number aren't equal")
        Exit Sub
    End If

    For C = 1 To RngFrom.Columns.Count
        For R = 1 To RngFrom.Rows.Count
            'check cell value to avoid errors coming from dividing by 0
            If Val(RngDiv.Cells(R, C)) <> 0 Then
                RngTo.Cells(R, C) = RngFrom.Cells(R, C) / RngDiv.Cells(R, C)
            Else
                'Insert something when division is impossible
                RngTo.Cells(R, C) = 0 'Or what you want to insert
            End If
        Next R
    Next C
End Sub

Answer 2

我像这样创建 sheet1

Please click to see Image

然后是sheet2

Please click to see Image2

然后创建空白表 3

并使用此代码

Sub divideRange()
    Dim lastRow, lastColumn As Long

    lastColumn = Sheets("Sheet1").Cells(1, Columns.Count).End(xlToLeft).Column
    lastRow = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row

    For i = 1 To lastRow
        For j = 1 To lastColumn
            Sheets("Sheet3").Cells(i, j).Value = Sheets("Sheet1").Cells(i, j).Value / Sheets("Sheet2").Cells(i, j).Value
        Next j
    Next i

End Sub

这是你想要的吗？

Answer 3

对不起，我的回复晚了。

你可以用for循环解决你的问题：

For i = 3 To 9
    If IsNumeric(Worksheets("Tabelle2").Cells(5, i).Value) And IsNumeric(Worksheets("Tabelle3").Cells(5, i).Value) And Worksheets("Tabelle3").Cells(5, i).Value <> 0 Then
        Worksheets("Tabelle1").Cells(5, i).Value = Worksheets("Tabelle2").Cells(5, i).Value / Worksheets("Tabelle3").Cells(5, i).Value
    End If
Next

变量 i 是您作为数字的列。 A = 1, B = 2, Z = 26, AA = 27 等等..
数字 5 是你的行

例如 Cells(5,1) 与 Range("A5") 或 Cells(3,9) = Range("I3") 相同

在我上面的代码中，它从 C (3) 列开始，到 I (9) 列停止。将数字 9 替换为 FX 列（您的最后一列）的编号并编辑表格名称，然后它应该可以工作。