複数のシートに 転記

質問

Sub べんきょう()
　　Worksheets(Array(1, 3)).Select
　　Range("3:3").Activate
　　ActiveCell.ClearContents
　End Sub

シート１，３の３行目のデータを消したい

もしくは
Sub べんきょう()
　　Worksheets(Array(1, 3)).Select
　　Range("3:3").Activate
　　ActiveCell.Interior.color = xlNone
　End Sub

シート１，３の３行目の色を消したい

うまくいかなくて困ってます…。
どなたかどうかご指導よろしくです。

回答No.1

onlyrom · ベストアンサー

見たような質問があるな、と思ったら。。(^^;;;
昨日の値代入は、昨日の質問のとこに回答しときました。

Sub くりあ勉強()
　Worksheets(Array(1, 3)).Select
　Range("3:3").Select
　Selection.ClearContents
End Sub
'--------------------------------------
Sub 色勉強()
　Worksheets(Array(1, 3)).Select
　Range("3:3").Select
　Selection.Interior.ColorIndex = xlNone
End Sub

要するに、Selectionプロパティを使えばいいということです。

また、複数選択は、
　　Range("3:3").Activate
ではなく
　　Range("3:3").Select
です。
選択だからSelectですね。
Activateはあくまでもアクティブにするわけですから
ひとつのセル、や、一枚のシートに対して行うものです。
以上。

お礼

丁寧に教えてくれてありがとです♪

解決しました。

回答No.2

imogasi

既回答も出ているが
私は下記でやってうまくいったが、
Sub Macro1()
Sheets(Array("Sheet1", "Sheet2")).Select
Rows("3:3").Select
Selection.ClearContents
End Sub
＞Worksheets(Array(1, 3)).Select
でうまくいきますか。
私がやると２番目のシートの第３行目はクリアされないが。