Excel2013VBA列選択の拡大
ExcelVBA2013です。
列の取得でつまづいております。
お手数ですが、ご教授下さい。
下記のコードで選択範囲のコピー貼り付けは出来ていますが、列幅がコピーされていませんでした。
CC3のセルを基準にOffsetとResizeで範囲拡大してコピーしているためだと思います。
CC3の左隣のAX3:CB3はセル結合されています（○月）。（その下の4行目は日付の１～31が入力）
列は、今回はAX3:CC3まで（1月分）取得できればよいです。（可変します）
MaxCol = Range("J5").End(xlToRight).Column で列取得できます。
行の位置は、MaxRow = Range("I5").End(xlDown).Row で取得した値です。
それで、列全体を取得しようと、 MaxCol = Columns(MaxCol).Select で最終列は取得できましたが、そこから列選択の拡大ができればと思っています。
現在は、AX3:CC237まで取得コピーして、隣の列に貼り付けで列幅が違う。
希望はAX:CCまでの列を取得選択コピーして貼り付け。
Sub SAMPLE()
Dim MaxRow As Variant, MaxCol As Variant
Dim r As Range, c As Range
MaxRow = Range("I5").End(xlDown).Row '最終行番号
MaxCol = Range("J5").End(xlToRight).Column '最終列番号
Set c = Cells(3, Cells(3, Columns.Count).End(xlToLeft).Column) '表の右上角のセル番地を取得
c.Select
c.Offset(0, -31).Resize(MaxRow - 2, 32).Copy c.Offset(0, 1) '表右上から１月分選択範囲拡大してコピー隣の列より貼りつけ
End Sub
お礼
ありがとうございました。