Excel VBA。右側の書式で列を手早く挿入したいけど、どうしたらいいの。
＜VBA: Insert＞
列を挿入すること自体は、簡単ですが、挿入する列が増えれば面倒な作業です。
また、挿入したものの、左側の列の書式を継承します。
そのため、左側の列の書式を継承させたい場合には、挿入オプションから、選択しなければならず、面倒な作業に感じやすくなります。
そこで、Excel VBAでプログラム文をつくって、対応してみます。
B列に列を挿入し、右側の国語と同じ書式にするようにします。
Sub 列挿入()
Columns("b").Insert copyorigin:=xlFormatFromRightOrBelow
Range("b1") = "英語"
End Sub
では、実行してみましょう。
右側の列の書式を継承して、列を挿入することができました。
プログラム文を確認しておきましょう。
Columns("b").Insert copyorigin:=xlFormatFromRightOrBelow
「Columns("b").Insert」だけで、B列に新しい列を挿入することができます。
ただ、Excelの場合は、左側の書式を継承するため、これだけだと、右側の書式を継承することができません。
「copyorigin:=xlFormatFromRightOrBelow」を追加することで、右側の書式を継承することができます。
