You can use .MergeCells = False look at this example below:
Sub merge_Bouton1_Clic()
With Range("A1:C1")
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("A1").Copy
Range("B1:C1").PasteSpecial xlPasteValues
Application.CutCopyMode = xlCopy
End Sub
[RESULT]:
The technical post webpages of this site follow the CC BY-SA 4.0 protocol. If you need to reprint, please indicate the site URL or the original address.Any question please contact:yoyou2525@163.com.