ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ´¡¤JÄæ¦ì

¦^´_ 1# donod


    Private Sub ´¡¤JÄæ()
For j = Cells(1, Columns.Count).End(1).Column To 1 Step -1
If Cells(1, j) = "ºñ¦â" Then
Range(Columns(j + 1), Columns(j + 3)).Insert Shift:=xlToRight ', CopyOrigin:=xlFormatFromLeftOrAbove
End If
Next
End Sub

TOP

        ÀR«ä¦Û¦b : ¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v­×¾i¤£°÷¡C
ªð¦^¦Cªí ¤W¤@¥DÃD