ExcelマクロVBA技術解説
マクロ作成後に、表位置がずれた場合の対処

マクロの最も不便なところは、セル参照が自動で変更されない事ですね。

どういう事かと言うと、

ワークシート関数なら、セル位置をずらしても、計算式が自動で変更されます。

しかし、マクロの記述は、自動で変更されません。

まあ、その可能性がある事が、最初から解っていれば、そのように記述することも可能ですけど。

要所位置を、名前定義しておくことで、レイアウトをずらしても、自動で対応できるようになります。

しかし、そのような対処をすることなく作成したマクロで、

完成後に、１行目は余白行にしたいとか、A列は空いていた方が見やすいとか・・・

そうなると、マクロの修正が大変なことがあります。

Cells(i, j)

これ全部修正しますか？

まあ、列数は、ConstやEnumにしてあったとしても、その部分の修正は必要です。

と言う事で、単純に、表全体がずれた場合の、ちょっとずるい対処方法です。

A1から作成されている表に対する処理として、

With Worksheets("Sheet1") 　　LastRow = .Cells(Rows.Count, 1).End(xlUp).Row 　　For i = 2 To LastRow 　　　　.Cells(i, 2) = "" 　　　　・・・いろいろな処理・・・ 　　Next i End With

まあ、こんなコードがあったとして、

１行目を空けたい、ついでに、A列も空けたい。

そんな場合は、どうしますか？

普通なら、

With Worksheets("Sheet1") 　　LastRow = .Cells(Rows.Count, 2).End(xlUp).Row 　　For i = 3 To LastRow 　　　　.Cells(i, 3) = "" 　　　　・・・いろいろな処理・・・ 　　Next i End With

上の赤太字が、修正対象部分になりますね。

たったこれだけのコードでも、３箇所も修正する必要があります。

もちろん、「・・・いろいろな処理・・・」この中が大量に修正が必要になります。

そこで、以下のような修正方法をとります。

With Worksheets("Sheet1").Cells(2, 2) 　　LastRow = .Cells(Rows.Count - 1, 1).End(xlUp).Row 　　For i = 2 To LastRow - 1 　　　　.Cells(i, 2) = "" 　　　　・・・いろいろな処理・・・ 　　Next i End With

この方法なら、「・・・いろいろな処理・・・」

の部分は、一切手を付けなくて済みます、当然コード内容によりますよ。

かなり無理やりではありますが、なぜ、こんな修正方法で良いのか・・・

理解できますか？

まあ、あまり良い方法とは言えませんが、修正ミスによる誤動作よりは良いですね。

もちろん、最初から、表位置が変更になる事を考慮して、

コーディングしておけば問題ないのですが、なかなか毎回そのようにはいかないです。

いざと言う時の、裏ワザとして、覚えておくとよいでしょう。