いつもお世話になります。
下記のように選んだセルのデータを削除するマクロを「マクロの記録」で作成しました。
Sub Macro2()
'
' Macro2 Macro
'
'
Range("E5:R12").Select
ActiveWindow.SmallScroll Down:=6
Range("E5:R12,E14:R22").Select
Range("E14").Activate
ActiveWindow.SmallScroll Down:=12
Range("E5:R12,E14:R22,E24:R28").Select
Range("E24").Activate
ActiveWindow.SmallScroll Down:=6
Range("E5:R12,E14:R22,E24:R28,E30:R34").Select
Range("E30").Activate
Selection.ClearContents
End Sub
「Macro2」の実行ボタンを作り、シート名「1」~「31」の同じセルのデータをボタンをクリックして、一括で削除したいのですが、この記述をどのように変更したらよいのか、マクロを始めたばかりの初心者の私にご教授して頂けませんでしょうか?
「マクロの記録」で各シートを選び、セルを選んでdeleteして行く方法はありますが、今後のためにも記述の編集で出来る方法をお教え下さい。
よろしくお願いいたします。
当方、エクセル2010で作成していますが、エクセル2002の環境で使います。
No.1ベストアンサー
- 回答日時:
次ぎのマクロを実行するとシート1とシート2の両シートのA1のデータがB1にコピーできます。
是を応用してください。Dim sheetno As Integer
For sheetno = 1 To 2
Worksheets(sheetno).Select
Range("A1").Select
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
Next
早速のご教授ありがとうございました。
マクロの記述を以下の様に変更し、無事成功しました。
Sub Macro2()
'
' Macro2 Macro
'
Dim sheetno As Integer
For sheetno = 1 To 32
Worksheets(sheetno).Select'
Range("E5:R12").Select
ActiveWindow.SmallScroll Down:=6
Range("E5:R12,E14:R22").Select
Range("E14").Activate
ActiveWindow.SmallScroll Down:=12
Range("E5:R12,E14:R22,E24:R28").Select
Range("E24").Activate
ActiveWindow.SmallScroll Down:=6
Range("E5:R12,E14:R22,E24:R28,E30:R34").Select
Range("E30").Activate
Selection.ClearContents
Next
End Sub
しかし、何か理解していないのかと思いますが、
シートは「31」までなのに
For sheetno = 1 To 31
では、「30」までしか、実行されず、
For sheetno = 1 To 32
にするとシート 31まで実行されました。
何か勘違いしてるのでしょうか?
取り敢えず、うまくいきました。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Excel(エクセル) ②Excel 簡単にシートコピーしたら前日の残高と日付を変更させたい→マクロの記録でエラーが出ます 8 2022/07/16 20:40
- Visual Basic(VBA) 2つのシートの任意のセルの番号が一致したら、一致した行をコピーする VBA 2 2023/06/19 20:48
- Visual Basic(VBA) マクロを短くする 1 2023/01/15 00:11
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Excel(エクセル) エクセルのVBAにショートカットキーの割り当て 3 2022/07/13 14:19
- Visual Basic(VBA) 指定の条件に応じたセルの場所に〇印(図形)を描く 2 2022/11/08 15:26
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで複数のシートのクリ...
-
Excel VBAでのWorksheet_Change...
-
エクセルファイルを開いた回数...
-
Excelで数字を入れたら対応する...
-
エクセルで特定の行だけ行削除...
-
長い時間かかるマクロが実行中...
-
エクセル シート内の一番下のセ...
-
【エクセル】「実行時エラー’10...
-
記録したマクロを他のシートに...
-
エクセルのマクロを教えてくだ...
-
セルの一部分だけを太字にする方法
-
Excelのシート上のShapeにイベ...
-
エクセル:セル内の文字列の最...
-
MS-Excelでアクティブセル上に...
-
Excelにて、同じ画像を複数のセ...
-
Excelでセル内の文字をファイル...
-
マクロを有効にしないとExcelフ...
-
エクセルで、セルにある数字が...
-
エクセルVBAで実行中画面を...
-
シートではなくBOOK間で重複し...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで複数のシートのクリ...
-
Excelで数字を入れたら対応する...
-
Excel VBAでのWorksheet_Change...
-
エクセルファイルを開いた回数...
-
Excelのシート上のShapeにイベ...
-
【エクセル】フリーワード検索...
-
【エクセル】「実行時エラー’10...
-
セルの一部分だけを太字にする方法
-
長い時間かかるマクロが実行中...
-
Excelでセル内の文字をファイル...
-
エクセルで特定の行だけ行削除...
-
エクセル シート内の一番下のセ...
-
エクセル:セル内の文字列の最...
-
EXCELのダイアログシートって、...
-
エクセルVBAで実行中画面を...
-
前月分を次月シートに繰越でき...
-
マクロ1があります。 A1のセル...
-
excel定数の違いについて。xlAu...
-
エクセルマクロでファイル名や...
-
エクセルのマクロ実行後にカー...
おすすめ情報