|
お世話になります。
今週から、マクロを始めました初級者です。どうぞ、よろしくお願いいたします。
A1:A3のセルが一つに結合してあるのですが、そのセルの結合を解除してA1と同じ値をA2、A3に入力したいのですが、、、
Sub Macro2()
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge
Range("A1").Select
Selection.Copy
Range("A1:A3").Select
ActiveSheet.Paste
End Sub
上記は、自動記録でとったものなのですが、最終的には、
A列で、セルが結合してあれば、1.セルの結合を解除し、2.セルの先頭の値をコピーし、3.コピーした値を解除前の範囲で内に貼り付ける。4.下のセルに結合されたセルが無いかあれば1.2.3.を繰り返すといったものを作成したいのですがよろしくお願いいたします。
|
|