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 

這是你想要的嗎？