|
おはようございます。
下記のセル範囲のR1C1による計算方法をご教授ください。
よろしくお願いいたします。
*データを取得*(どの試験結果からも抽出できるようにしています。)
Set myRng3 = Columns(3).Find(What:="START", After:=Range("C1"),
LookIn:=xlFormulas, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
If Not myRng3 Is Nothing Then
RngR3 = myRng3.Row
RngC3 = myRng3.Column
End If
Set myRng4 = Columns(3).Find(What:="END", After:=Range("C1"), LookIn:=xlFormulas, _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
If Not myRng4 Is Nothing Then
RngR4 = myRng4.Row
RngC4 = myRng4.Column
End If
Set STEP4 = Range(Cells(RngR3, RngC3 + 2), Cells(RngR4, RngC4 + 2))
★このSTEP4の合計を計算したい★
A = RngR4 - RngR3 (Step4のRowの数)
*STEP4をコピーするファイル*
Workbooks(2).Activate
myMacro = ActiveWorkbook.Name
Workbooks(myMacro).Activate
Worksheets(1).Activate
STEP4.Copy
Range("D10").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Selection.Replace What:="S", _
Replacement:="", _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=False
Set STEP4 = Nothing
With Cells(11 + A, 3)
.Select
.FormulaR1C1 = With Cells(11 + A, 3)
.Select
.FormulaR1C1 = "=SUM(R[-A]C;R[-1]C)" ←こうするとデバックが出ます。
End With
よろしくお願いいたします。
|
|