Hsieh

¦^´_ 1# Genie

§Aªº·N«ä¤£ª¾¬O§_¦p¦¹

1. Sub InsertColumn()
   
2. Dim k
   
3. r = ActiveCell.Row
   
4. 10
   
5. k = InputBox("¿é¤J±ý´¡¤JÄæ¼Æ", "´¡¤JÄæ¼Æ", 1)
   
6. If Not IsNumeric(k) Then MsgBox "½Ð¿é¤J¦³®Ä¼Æ­È ": GoTo 10
   
7. i = Cells(r, 256).End(xlToLeft).Column
   
8. Do Until i = 2
   
9. If Cells(r, i) <> Cells(r, i - 1) And Cells(r, i - 1) <> "" And Cells(r, i) <> "" Then Cells(r, i).EntireColumn.Insert
   
10. i = i - 1
    
11. Loop
    
12. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 8# Genie
§Ñ¤F¦³¦hÄæ­n¨D

1. Sub InsertColumn()
   
2. Dim k
   
3. r = ActiveCell.Row
   
4. 10
   
5. k = InputBox("¿é¤J±ý´¡¤JÄæ¼Æ", "´¡¤JÄæ¼Æ", 1)
   
6. If Not IsNumeric(k) Then MsgBox "½Ð¿é¤J¦³®Ä¼Æ­È ": GoTo 10
   
7. i = Cells(r, 256).End(xlToLeft).Column
   
8. Do Until i = 2
   
9. If Cells(r, i) <> Cells(r, i - 1) And Cells(r, i - 1) <> "" And Cells(r, i) <> "" Then Cells(r, i).Resize(, k).EntireColumn.Insert
   
10. i = i - 1
    
11. Loop
    
12. End Sub

½Æ»s¥N½X