VBA/Excel：数式を動的にコピーする可能性がある

Question

VBAで同じ行のあるセルから別のセルにフォーミュラをコピーする場合は、

E1 = "=(E441+E747+E750)*-1" 
to 
    F1 -> = "=(F441+F747+F750)*-1" 

しかし、このコードスニペット：

Dim r As Excel.Range 
Dim lRow As Long 


lRow = tbXlApp.WorksheetFunction.Match("Test", Range("C:C"), 0) 

'Line 4 
tbXlWs.Cells(lRow, 5).Formula = "=(E441+E747+E750)*-1" 

For Each r In tbXlWs.Range(tbXlWs.Cells(lRow, 6), tbXlWs.Cells(lRow, 4 + x)) 
    r.Formula = tbXlWs.Cells(lRow, 5).Formula 
Next r 

は、単に例を想起ライン4

で定義されたセルの式を貼り付け、それは

E1 = "=(E441+E747+E750)*-1" 
    to 
    F1 -> = "=(E441+E747+E750)*-1 

になる。しかしこのシナリオでは列Fでなければなりません。私は何を変更する必要がありますか？

ありがとうございます！

Answer 1

に一度に数式を設定できます

Dim lRow As Long 

lRow = tbXlApp.WorksheetFunction.Match("Test", Range("C:C"), 0) 

'Line 4 
tbXlWs.Range(tbXlWs.Cells(lRow, 5), tbXlWs.Cells(lRow, 4 + x)).Formula = "=(E441+E747+E750)*-1" 

各式は、その後、あなたはそれをコピーしたかのように、相対的な列に基づいて調整されますExcel内で

Answer 2

'Line 4 
tbXlWs.Cells(lRow, 5).Formula = "=(E441+E747+E750)*-1" 

変更この

tbXlWs.Cells(lRow, 5).Formula = "=(F441+F747+F750)*-1"