エクセルマクロで教えてください

質問

エクセル2003です。
自動マクロで下記のようなマクロを造ったんですが
Selection.End(xlDown).Select
　　Range("A29:D29").Select　
■A29を止まったセルの番号にしたいのです。（Ａ**からＤ**まで）
　　　 With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("A30").Select
■A30を止まったセルの番号にしたいのです

以上2箇所の指定を教えていただけますでしょうか。
よろしくお願いいたします。

回答No.1

kybo · ベストアンサー

こんな感じでどうでしょうか？

Selection.End(xlDown).Select
With Range(Cells(Selection.Row, "A"), Cells(Selection.Row, "D"))
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
.Merge
End With

お礼

早速のご回答ありがとうございました。
うまくいきました、使わせていただきます。

回答No.5

hige_082

文章でも処理の説明を！
マクロの記録は不必要なコードも多いので
やりたいことの説明があると回答がしやすい

With Range("a1").End(xlDown).Resize(, 4)
.VerticalAlignment = xlCenter
.IndentLevel = 0
.Merge
.Offset(1).Select
End With

以上参考まで

お礼

御回答有難うございました。
参考にさせていただきます。

回答No.4

okormazd

#3です。
訂正です。
なんか調子が悪いな。<(_ _)>。
Sub test()
With Range("A1")
.End(xlDown).Resize(.Rows.Count, .Columns.Count + 3).Select
End With
With Selection
.Merge
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Offset(1, 0).Select
End With
End Sub

お礼

何度もご回答いただきありがとうございました。
参考にさせていただきます。

回答No.3

okormazd

#2です。
訂正です。
次でどうでしょう。
Sub test()
With Range("A1")
.End(xlDown).Resize(.Rows.Count, .Columns.Count + 3).Select
End With
With Selection
.Merge
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Selection.Offset(1, 0).Select
End Sub

回答No.2

okormazd

こんな感じでどうでしょうか？

Sub test()
With Range("A1")
With .End(xlDown).Resize(.Rows.Count, .Columns.Count + 3)
.Merge
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
End With
Selection.Offset(1, 0).Select
End Sub