| |
おはようございます。
下記のセル範囲の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))
★このSTEP４の合計を計算したい★
A = RngR4 - RngR3 （Step４のRowの数）
＊STEP４をコピーするファイル＊
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
よろしくお願いいたします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 05/5/27(金) 10:18 -
