黒子ブログ

Excel(エクセル)を開く際は「Workbook_Open()」を使用します。
その時、ブック（ファイル）のパス（アドレス）を取得して、セルに書込むと、わざわざ作業者に書いてもらう必要がなくなります。
いろいろな場面でブック（ファイル）のパス（アドレス）を取得する事が多いので、便利です。

●　行の削除（Delete文）

選択している行（Rows）を上方向（Shift:=xlUp）に削除（Delete）します。

●　行の表示・非表示（Hidden文）

7行目が非表示なので、6～8行目（Rows("6:8")）を表示EntireRow.Hidden = Falseします。
7行目を非表示にしたいので、7行目（Rows("7:7")）を非表示（EntireRow.Hidden = True）にします。

●　行のコピー（Copy文）

7行目（Rows("7:7")）をコピー（Copy）します。

●　行の貼り付け（Paste文）

8～100行目（Rows("8:100")）まで貼り付けたいので選択（Select）します。
選択した行に貼り付けします。（ActiveSheet.Paste）
※　貼り付けに関しては、[Rows("8:100").Paste]は出来ません。
セルを選択してから貼り付け文と2行必要です。

●　コピーモード解除（CutCopyMode）

コピーした後、コピーしたままの状態でコピー元のセルが点線状態になっています。
[ESC]キーでコピーモード解除できますが、親切にコピーモード解除しておいてあげましょう。
Application.CutCopyMode = False

●　セルの選択Select

セル[C8]（Range("C8")）選択（Select）
セル[C8]の場合、[Range]でもOKですが、以下も同じです。
Cells(8,"C").Slect
Cells(8,3).Select

Forを2回繰り返さなくても、変数に配列として、値を取得する方法です。
また、"&"で組み合わせる場合も、変数で行数を取得していれば、セルに合わせた形でFor文を構築できます。
なるべく構文は簡素化して、早い処理速度を実行する事が良いです。

ActiveSheet.PageSetup.PrintArea = "$A$1:$J$60"としたいのですが、

Range("B50000").End(xlUp).Rowにて、セルB50000から一番上の行番号を

取得した数字を"&"で指定しています。

よく使用されるワークブック・ワークシートの選択

ご活用ください

Excel(エクセル)VBA でマクロ実行すると、マクロ通り画面上でもセルやシート・ブックの動きが見えてしまいます。

画面のちらつき防止を指定したところから始め、元に戻してあげるという記述をします

必ず画面のちらつき解除の文も忘れずに！

処理が終わったらちらつき防止のままになってしまいます