![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
当方、マクロ・VBA初心者です。
マクロの記録を利用し、マクロの作成を行いました。
既にデータが入力されているセルに対して、
・行の追加
・列の追加
・セルの結合
を行うマクロの記録を行い、別シートにも同様の作業を反映させようとしたのですが、
マクロを実行したところ、データが入力されているセルに対しては作業が反映されず、
新規列・行が追加され、追加されたセルに対して作業が実行されました。
マクロの記録を行ったシートと、作業を反映させたいシートは同様の構成となります。
こちら、別シートの既存セルに対して作業を実行するにはどのようにしたらよいでしょうか。
ご教示いただければ幸いです。
▼マクロの記録で作成されたマクロ
Sub Macro1()
'
' Macro1 Macro
'
'
Columns("I:K").Select
Range("I2").Activate
Selection.EntireColumn.Hidden = False
Columns("I:J").Select
Range("I2").Activate
Selection.ColumnWidth = 20
Columns("C:C").Select
Range("C2").Activate
Selection.Insert Shift:=xlToRight
Rows("4:4").Select
Selection.Insert Shift:=xlDown
Rows("6:6").Select
Selection.Insert Shift:=xlDown
Rows("8:8").Select
Selection.Insert Shift:=xlDown
Rows("10:10").Select
Selection.Insert Shift:=xlDown
Rows("12:12").Select
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll Down:=6
Rows("14:14").Select
Selection.Insert Shift:=xlDown
Rows("16:16").Select
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll Down:=3
Rows("18:18").Select
Range("C18").Activate
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll Down:=-27
Rows("3:18").Select
Selection.RowHeight = 32
Range("J2:K2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("A3:A4").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
<セル結合の繰り返しのため中略>
Selection.Merge
Range("T17:T18").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("A3:E18").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$E3=""S"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent5
.TintAndShade = 0.799981688894314
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$E3=""D"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 16764159
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$E3=""DP"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 16764159
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
![「マクロの記録を使用したマクロの実行につい」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/4/543235998_667e619056d0f/M.png)
No.2ベストアンサー
- 回答日時:
記録マクロは操作を記録します
幸い、ご質問のコードにはシートを指定するコードがありません
したがってアクティブシート(表示されているシート)に対して実行されます
作業をしたいシートを表示して Alitキー+F8キーを押下して
ダイアログの Macro1 を選択して 実行ボタンを押下してください
いかがでしょう
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
Word VBA MSGBOX 内で降順表示
Visual Basic(VBA)
-
現在のブックを閉じないで、マクロ抜きの(現在のブックの)コピーを作成したい
Visual Basic(VBA)
-
-
4
VBA一覧取得 再投稿
Visual Basic(VBA)
-
5
VBA指定行削除
Visual Basic(VBA)
-
6
WORD VBA プログラム修正をお願いします。
Visual Basic(VBA)
-
7
Excel 範囲指定スクショについて Excelで範囲指定してスクリーンショットする機能がありますが
Visual Basic(VBA)
-
8
Excel VBA 選択範囲の罫線色の変更プロージャの動作速度の改善について
Visual Basic(VBA)
-
9
時間短縮のために、テキストファイルの入出力をメモリを使って出来ないですか?
Visual Basic(VBA)
-
10
VBAコードのインデント表示
Visual Basic(VBA)
-
11
エクセルの合計を自動で表示させたいです
Visual Basic(VBA)
-
12
Vba SelStart、SelLen教えてください教えてください
Visual Basic(VBA)
-
13
エクセルについて
Visual Basic(VBA)
-
14
Excel-VBAのmsgBox()の不思議
Visual Basic(VBA)
-
15
Excel(M365) Vlookup/セル反転(VBA)について
Visual Basic(VBA)
-
16
VBAで大量のファイルをシート名ごとに転記やらいろいろしたい!
Visual Basic(VBA)
-
17
vba 削除
Visual Basic(VBA)
-
18
エクセルVBAについて
Visual Basic(VBA)
-
19
VBAなくなるの?
Visual Basic(VBA)
-
20
IF文、条件分岐の整理方法
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで特定の列が0表示の場...
-
特定のPCだけ動作しないVBAマク...
-
Excel・Word リサーチ機能を無...
-
Excel マクロ VBA プロシー...
-
ExcelのVBA。public変数の値が...
-
マクロ実行時、ユーザーフォー...
-
Excel_マクロ_現在開いているシ...
-
【EXCEL VBA】オートシェイプを...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
VBA アドインについて お詳しい...
-
Excel VBAからAccessマクロを実...
-
エクセルのマクロを一定時間ご...
-
エクセルで別のセルにあるふり...
-
Excelのマクロボタンをダブルク...
-
エクセルのマクロをセルの値に...
-
Excel マクロでShearePoint先の...
-
ソース内の行末に\\
-
TERA TERMを隠す方法
-
ピボットテーブルでの毎回可変...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
メッセージボックスのOKボタ...
-
Excel マクロ VBA プロシー...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
Excel VBAからAccessマクロを実...
-
エクセルに張り付けた写真のフ...
-
TERA TERMを隠す方法
-
Excel マクロでShearePoint先の...
-
ExcelVBAでPDFを閉じるソース
-
マクロ実行時、ユーザーフォー...
-
エクセルで別のセルにあるふり...
-
特定文字のある行の前に空白行...
-
エクセルのマクロについて教え...
-
VBAコードのインデント表示
-
EXCELのVBAでRange("A1:C4")を...
-
ソース内の行末に\\
-
マクロで空白セルを詰めて別シ...
おすすめ情報