½Ð±Ð¦U¦ì°ª¤â
·Qn¿ï¨úE1:G1Àx¦s®æ¸óÄæ¸m¤¤
ª¾¹D(¥Î¿ýªº)¤j·§³o¼Ë¼g
Range("E1:G1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
¦ý²{¦b·Qn¤£n¥u§½¦b¨ìG1¡A¥¼¨Ó¥i¯àH1,I1,J1....µ¥µ¥
©Ò¥H·Qn¥ýŪ¦³¦h¤ÖÄæ
Do Until ActiveSheet.Cells(2, col) = ""
col = col + 1
Loop
ba = col - 6
¦A§Q¥ÎÄæ¦ì¿ï¨ú
½Ð±Ð³o¼Ën«ç»ò¥´?
Range("E1:" & [E1].Offset(, ba)).Select
¤£¯à³o¼Ë¼g¶Ü?
ÁÂÁ¦U¦ì |