auzanoo
Board Regular
- Joined
- Jan 6, 2020
- Messages
- 63
- Office Version
- 2007
- Platform
- Windows
dear experts,
i have a code, to unmerge cells.
but, it can't work because the range is too large,
so..
so, is there any solution?
i made this code with 'record macro'.
thank you in advance!
i have a code, to unmerge cells.
but, it can't work because the range is too large,
so..
VBA Code:
Range( _
"C8:E295,G8:I295,K8:M295,O8:Q295,S8:U295,Z8:AB295,AD8:AF295,AH8:AJ295,AL8:AN295,AP8:AR295,AW8:AY295,BA8:BC295,BE8:BG295,BI8:BK295,BM8:BO295" _
).Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
.
.
.
so, is there any solution?
i made this code with 'record macro'.
thank you in advance!