GBKEE

¦^´_ 1# joslau
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, E As Range
   
4.     With ActiveSheet
   
5.         Set Rng = .Range("C:C").SpecialCells(xlCellTypeBlanks)
   
6.         For Each E In Rng.Areas
   
7.             If E.Cells(E.Rows.Count).Row < .Rows.Count Then
   
8.                 E.Cells(1) = E.Cells(E.Rows.Count + 1)
   
9.                 E.Cells(E.Rows.Count + 1) = ""
   
10.             End If
    
11.         Next
    
12.     End With
    
13. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# joslau

1. Sub Ex()
   
2.     Dim Rng As Range, E As Range
   
3.     With ActiveSheet
   
4.         Set Rng = .Range("C12:C23").SpecialCells(xlCellTypeBlanks)
   
5.         For Each E In Rng.Areas
   
6.             If E.Cells(E.Rows.Count).Row < 23 Then
   
7.                 E.Cells(1) = E.Cells(E.Rows.Count + 1)
   
8.                 E.Cells(E.Rows.Count + 1) = ""
   
9.             End If
   
10.         Next
    
11.     End With
    
12. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# bmouth
§A¥i»s§@ 3# ¹Ï¥Ü¤º®e,°õ¦æ4#ªºµ{¦¡½X,¸Õ¸Õ