GBKEE

¦^´_ 1# Genie
¿ï²Ä¤G¦C ªºÅÞ¿è¬Ý¤£À´
¿ï²Ä¤@¦C ¦p¤U

1. Sub ´¡¤JÄæ()
   
2.     Dim i As Integer, r As String, Rng As Range, E As Range
   
3.     Dim iRow As Integer
   
4.     If iRow > 3 Then Exit Sub '¦¹µ{¦¡½X¨S§@¥Î?? : iRow µ{¦¡¤¤§A©|¥¼µ¹­È
   
5.     Application.ScreenUpdating = False
   
6.     Do
   
7.         r = InputBox("¿é¤J´¡¤JÄæ¼Æ,¥²¶· >= 1  ", "´¡¤JÄæ¼Æ", "1")
   
8.     Loop Until r <> "" And r >= 1
   
9.     For i = 2 To [A2].End(xlToRight).Column - 1
   
10.         If Cells(1, i) <> Cells(1, i + 1) Then
    
11.             If Rng Is Nothing Then Set Rng = Cells(1, i) Else Set Rng = Union(Cells(1, i), Rng)
    
12.         End If
    
13.     Next
    
14.     If Not Rng Is Nothing Then
    
15.         For Each E In Rng.Cells
    
16.             E.Offset(, 1).Resize(, r).EntireColumn.Insert
    
17.         Next
    
18.     End If
    
19.     Application.ScreenUpdating = True
    
20. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# Genie
¸Õ¸Õ¬Ý

1. Sub ´¡¤JÄæ()
   
2.     Dim i As Integer, r As String, Rng As Range, E As Range
   
3.     Dim iRow As Integer
   
4.     iRow = Selection.Cells(1).Row
   
5.     If iRow > 3 Or Selection.Cells(1) = "" Then Exit Sub
   
6.     Application.ScreenUpdating = False
   
7.     Do
   
8.         r = InputBox("¿é¤J´¡¤JÄæ¼Æ,¥²¶· >= 1  ", "´¡¤JÄæ¼Æ", "1")
   
9.     Loop Until r <> "" And r >= 1
   
10.     Set Rng = Cells(iRow, Columns.Count).End(xlToLeft)
    
11.     Do
    
12.         If Rng <> Rng.Offset(, -1) Then
    
13.             Set Rng = Rng.Offset(, -1)
    
14.             Rng.Offset(, 1).EntireColumn.Resize(, r).Insert
    
15.         Else
    
16.             Set Rng = Rng.Offset(, -1)
    
17.         End If
    
18.     Loop While Rng.Column > 2
    
19.     Application.ScreenUpdating = True
    
20. End Sub

½Æ»s¥N½X

PS «ö¦^ÂÐÁä ¦^¤å ¬O¤@ºØ§»ª

GBKEE

¦^´_ 5# Genie
§A­n¦b¦P¤@Sheet, §@¨â¦¸ªº´¡¤JÄæ,¦pªþÀɤWªº½d¨Ò,
¤£¦n·N«ä,§Ú·Q¤£¥Xµ{¦¡½XªºÅÞ¿è­n¦p¦ó¼g.