Excel VBA错误多行乘法运算

Question

发生“类型不匹配”错误。

试图通过在第二工作表“Sheet 2中的”数字的另一个矩阵取号码中的一个矩阵上的一个工作表“Sheet 1中”，除，然后显示在所述第三工作表“工作表Sheet”的矩阵

每个小区结果

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

对不起，我迟到的回复。

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是一些你的专栏：

你可以用一个for循环解决您的问题。 A = 1，B = 2，Z = 26，AA = 27等等..
数5是您的行

例如 细胞（5,1）是像范围（“A5相同“）或Cells（3,9）= Range（”I3“）

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

Answer 3

创建Sheet 1中这样

Please click to see Image

然后Sheet 2中

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 

这是你想要的吗？