[µo°Ý] ½Ð°Ý¦p¦ó±ø¥ó¦¡§PÂ_(ªÅ­È)¤Î±ø¥ó¦¡½Æ»s

aseeddie

Book1.rar (1.32 KB)

¤U¸ü¦¸¼Æ: 6

2011-5-18 02:33

½Ð°Ý¦p¦ó±ø¥ó¦¡§PÂ_(ªÅ­È)¤Î±ø¥ó¦¡½Æ»s

°²³]AÄæ¦ì¦³200¦C¡A¥B¸ê«D³sÄò©Ê¤À§G

¦p¦ó§PÂ_Àx¦s®æ¬O§_¬°ªÅ­È

¦pªG¤£¬O«h«O¯d­ì¼Æ­È

¦pªG¬O"ªÅ­È"«h½Æ»s¤W¤@®æÀx¦s®æ¼Æ­È

¦pªþ¥ó¡G
¦Û°Ê§PÂ_A1¦³¼Æ­È«O¯d¤£°Ê
§PÂ_A2¬°ªÅ­È¡A«h½Æ»s¤W¤@®æÀx¦s®æªº¸ê®Æ
§PÂ_A3¬°ªÅ­È¡A«h½Æ»s¤W¤@®æÀx¦s®æªº¸ê®Æ
¥H¦¹Ãþ±À¡A¦@200¦C

½Ð°ª¤â±Ð¾É¡A¸U¤À·PÁÂ

GBKEE

½s¿è/¨ì/¯S®í/ªÅ®æ
    Hsieh µoªí©ó 2011/5/18 09:01

­ü ¦­¤W°_¨Ó,ÁÙ¨SºÎ¹¡!!

Hsieh

½s¿è/¨ì/¯S®í/ªÅ®æ
    With Range([A1], [A65536].End(xlUp))
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
    End With

GBKEE

¦^´_ 2# aseeddie
§Aªºµ{¦¡½X¬O³Ì²µuªº,¦ý¸ê®Æ¶q¤j®É·|¸û¶O®Éªº

1. Sub Ex1()
   
2.     Dim Rng As Range
   
3.     Set Rng = Range("A1")
   
4.     Do
   
5.         If Application.CountA(Range(Rng, Rng.End(xlDown).Offset(-1))) = 1 Then
   
6.             If Rng.End(xlDown).Row = Rows.Count Then
   
7.                 Range(Rng, Cells(200, "a")) = Rng
   
8.                 Exit Do
   
9.             End If
   
10.             Range(Rng, Rng.End(xlDown).Offset(-1)) = Rng
    
11.        End If
    
12.         Set Rng = Rng.End(xlDown)
    
13.     Loop
    
14. End Sub

½Æ»s¥N½X

1. Sub Ex2()
   
2.     Dim Rng As Range, Ar(), i%
   
3.     Set Rng = Range("A1")
   
4.     Ar = Rng
   
5.     For i = 2 To UBound(Ar)
   
6.        If Ar(i, 1) = "" Then Ar(i, 1) = Ar(i - 1, 1)
   
7.     Next
   
8.     Rng = Ar
   
9. End Sub

½Æ»s¥N½X

aseeddie

·Q¤F¤@­Ó±ß¤W²×©ó¤w¸Ñ¥X

½Ð­Ó¦ì°ª¤â°Ñ¦Ò¬Ý¬Ý

¬O§_¦³§ó°ª¯Åªº¸Ñªk


Sub macro1()

Dim i As Integer

For i = 1 To 200

    If Cells(i, 1) = "" Then
      
    Cells(i, 1) = Cells(i, 1).Offset(-1, 0)
   
    End If
   
Next i

   
End Sub