エクセルのマクロの手直し

質問

お世話になります。

エクセルのマクロに教えてください。

(1)シートの保護を解除
(2)E42～H42までを選択し[コピー]
(3)E18をクリックして[形式名を選択して貼り付け]（その中の値のみ）
(4)E42～H42までを選択し[数式と値のクリア]
(5)シートの保護　→　OK

ここで
(3)のE18というセルの所を　E列で、行番号は　I42　のセルに７を足した数字　というようにしたい。（I42の値が15だったらE22という具合）ちなみに　I42　のセルは条件により変化し０以上３５以下の整数が入る。

以下は(1)から(5)の作業をマクロの新規作成で「マクロ」という名前で記録したものです。
どの部分を修正すればいいのか教えてください。

Sub マクロ()
'
' マクロ Macro
' マクロ記録日 : 2002/5/27 ユーザー名 :
'

'
ActiveSheet.Unprotect
Range("E42:H42").Select
Selection.Copy
ActiveWindow.ScrollRow = 10
Range("E18").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll Down:=6
Application.CutCopyMode = False
Range("E42:H42").Select
Selection.ClearContents
Range("I37").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

回答No.1

tamagawa49 · ベストアンサー

Range("E18").Select の部分をRange("E" & Cells(42, 9) + 7).Selectに書き換えればできると思います。

Sub マクロ()
ActiveSheet.Unprotect
Range("E42:H42").Copy
Range("E" & Cells(42, 9) + 7).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("E42:H42").Select
Selection.ClearContents
Range("I37").Select
ActiveSheet.Protect
End Sub

のような感じでいいはずです。
ちょっと変なところで改行してあって読みづらくてすみません。
では、頑張って下さい。

お礼

ありがとうございました。ばっちりでした。