Excel VBA 列の最終列を設定するＶＢＡ

こんにちは脇村です。僕のブログでは、本業での実務上のＥＸＣＥＬ、ＡＣＣＥＳＳマクロ＆ＶＢＡの使えそうなコードの紹介、コールドリーディングの実践例、日常のつぶやき、今の時代を生き抜くために－脇村、最近読んでいいなと思った本等について、主に発信していきたいと思っています。

今回はＥＸＣＥＬＶＢＡについて発信したいと思います。こういったプログラム系統は何を実現したいかを強く頭に描くことが実現への第一歩につながると思います。少しずつ発信していってその手助けができれば幸いだと思っています。今回は列の最終列を設定するＶＢＡについてです。行はできるけど列の指定は苦手と言う人は多いと思います。

Sub 列の最終列を設定()
Dim 列 As Integer
Dim 列AD As String

列 = ActiveSheet.Range(“IU6”).End(xlToLeft).Column ①
列AD = Replace(ActiveSheet.Cells(6, 列).Address(ColumnAbsolute:=False), “$6”, “”) ② ActiveSheet.PageSetup.PrintArea = “$A1:$” & 列AD & “$” & ActiveSheet.Range(“H65535”).End(xlUp).Row

End Sub

①はＩＵ列６行目からxlToLeft、つまり左に移動してぶつかった列がその列のアドレスになります。仮にそれがＣＬ列だったとしましょう。そしたら列は90と言う数字になります。ＣＬ列は一番左から数えて90番目だからです。ActiveSheet.Cells(6, 90)になります。
②はＣＬ列６行目の列の絶対参照を外すというプログラムです。(Address(ColumnAbsolute:=False)更にReplaceで行アドレス”$6″を””にしています。これでＣＬ列６行目のアドレス中、ＣＬと言う文字列だけが残ります。
③のPrintAreaは列AD =ＣＬだからセル番地Ａ１からＣＬ列のActiveSheet.Range(“H65535”).End(xlUp).Row、つまりＨ列の最終行と言うことになります。
以上、今回は列の最終列を設定するＶＢＡでした。次回もまたよろしくお願いします。

平均150万円/月以上のコンサル案件多数【Strategy Consultant Bank】

47人の整体師全員が「整体対決で負けた」枕！【Cure:Re THE MAKURA】

━━━━━━━━━━━━━━━━━━━━━━━━━
■ 寝るだけで首・肩・腰に整体効果の【特許取得枕】
━━━━━━━━━━━━━━━━━━━━━━━━━
・整体師47人が整体対決で負けた！
・ゴッドハンド整体師が作り上げた奇跡の枕。
・整体院での施術にも使用されています。
・ストレートネック対策・自律神経の調整にも

▼詳細はこちら
https://px.a8.net/svt/ejp?a8mat=3NADJB+152XIQ+4GZK+5YZ77
━━━━━━━━━━━━━━━━━━━━━━━━━