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

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

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

½Ð±Ð¦U¦ì«e½ú, ¦p¦ó­×§ï¤~¥i¦b"ºñ¦â"Äæ¦ì«á¦Û°Ê¥[¤JÄæ¦ì, ÁÂÁÂ!
´¡¤J3Äæ.rar (9.83 KB)

¦^´_ 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

¦^´_ 2# singo1232001

¥i¥H¤F, ·PÁ«e½úÀ°§U!

TOP

        ÀR«ä¦Û¦b : ­×¦æ­nô½t­×¤ß¡AÂǨƽm¤ß¡AÀH³B¾i¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD