將R1C1公式放在變量行中以引用同一列

Question

我需要幫助來編寫將R1C1公式放入行的單元格中的代碼。

每次宏運行時，行的起始位置都會有所不同。 也就是說。如果宏第一次運行，則公式將作爲R [-5] C [3]輸入到行B16中。案例中的R [-5]是E12。

但是，當宏運行另一次，&它進入行B25，我仍然希望它引用到E3，但它引用E20。

這裏是我的代碼

Dim cell As Range, MyRange As Range 

Set MyRange = Range("B1:B5000") 

For Each cell In MyRange 

If cell = " " And cell.Offset(, 1) <> "Record" Then 

cell.FormulaR1C1 = "=SUM(R[-5]C[3]: SUM(R[-5]C[4])" 

End If 

Next cell 

End With 

你是對的，我的代碼是想說This row - 5, this column + 3: this row -5, this column + 4 我的問題是，該行可以是任何行&我想用相對引用，因爲這公式複製到下一行 所以我想要做的就是這個

Cell B16 = E11+F11 
Cell B17 = E12+F12 
Cell B18 = E13+F13 etc 

然後運行宏時再次&啓動細胞是E25，則

Cell E25 = E20+F20 
Cell E26 = E21+F21 
Cell E26= E22+F22 etc 

所以，無論哪個小區宏分的，它總是開始從E11+F11

Answer 1

這裏的計算是我的代碼

昏暗的小區範圍，MyRange作爲範圍 集MyRange =範圍（ 「B1：B5000」）

針對每個小區在MyRange

如果細胞= 「」 而cell.Offset（1）<> 「記錄」。然後

cell.FormulaR1C1 = 「= SUM（R [-5] C [3]：SUM​​（R [-5] C [4]）」

結束如果

下一頁細胞

末隨着

Answer 2

您目前使用的公式中相對引用，並作爲你想說=SUM(E1:SUM(F1)如果單元格B6中輸入的公式將無法工作。任何高於此的行，它會嘗試引用表單。

要使用絕對參考使用R3C5（第3行，第5列= E3）。
充其量公式想說This row - 5, this column + 3: this row -5, this column + 4

也許嘗試"=SUM(R3C5:R3C4)"這是一樣的=SUM($E$3:$F$3)。

另外 - cell = " " - 單元格必須包含單個空格？應該是cell = ""？

編輯： 在回答您的編輯 - 如果你想第一個公式總是看E11：F11，接下來的是E12：F12，等您可以使用這些解決方案之一：

公式添加到所有行一重擊 - 這不檢查一個空間單元：

Public Sub Test() 

    Dim MyRange As Range 
    Dim lOffset As Long 

    Set MyRange = Range("B1:B5000") 

    With MyRange 
     lOffset = 11 - .Row 
     .FormulaR1C1 = "=IF(RC[1]<>""Record"",SUM(R[" & lOffset & "]C5:R[" & lOffset & "]C6),"""")" 
    End With 

End Sub 

要檢查每個單元都有一個空間，它增加前式：

Public Sub Test1() 

    Dim MyRange As Range 
    Dim rCell As Range 
    Dim lOffset As Long 

    Set MyRange = Range("B30:B5000") 

    lOffset = 11 - MyRange.Row 
    For Each rCell In MyRange 
     If rCell = " " And rCell.Offset(, 1) <> "Record" Then 
      rCell.FormulaR1C1 = "=SUM(R[" & lOffset & "]C5:R[" & lOffset & "]C6)" 
     End If 
    Next rCell 

End Sub 

下面是第二個代碼塊顯示行11的結果公式總是開頭：

如果你改變範圍公式進去：

編輯2：
如果行20:24有記錄，則這將在行25中放置=SUM($E11:$F11)。如果行26有記錄，那麼行27將有=SUM($E12:$F12)

Public Sub Test1() 

    Dim MyRange As Range 
    Dim rCell As Range 
    Dim lOffset As Long 

    Set MyRange = Range("B20:B30") 

    lOffset = 11 
    For Each rCell In MyRange 
     If rCell = " " And rCell.Offset(, 1) <> "Record" Then 
      rCell.FormulaR1C1 = "=SUM(R[" & lOffset - rCell.Row & "]C5:R[" & lOffset - rCell.Row & "]C6)" 
      lOffset = lOffset + 1 
     End If 
    Next rCell 

End Sub