GBKEE

¦^´_ 1# louiswei1986
§Ú¨S¿ìªk½T©w³o­ÓÀɮצ³¦h¤Ö¦C¡A©Ò¥H¥¦·|¤@ª½¸É0¨ì9999¦C
¥i¥HÆ[¹î¤u§@ªí¤Wªº¼Æ¾Ú«ü©w¦Û°Ê¶ñº¡Àx¦s®æ¦ì¸m

1. Option Explicit
   
2. Sub EX()
   
3.     If Range("F1") > Range("P2").Row Then   '** Range("F1")ªº¼Æ­È > Range("P2").Row(¦C¸¹)
   
4.         Range("P2").AutoFill Range("P2:P" & Range("F1"))
   
5.     End If
   
6. End Sub
   
7. '*****************
   
8. Sub EX_1()
   
9.     If Range("F1") > 0 Then  '** Àx¦s®æ¶i¦æ¦Û°Ê¶ñº¡ªº¦C¼Æ
   
10.          With Range("P2")
    
11.             .AutoFill .Cells.Resize(Range("F1"))
    
12.         End With
    
13.     End If
    
14. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# louiswei1986

¥i¥HÆ[¹î¤u§@ªí¤Wªº¼Æ¾Ú«ü©w¦Û°Ê¶ñº¡Àx¦s®æ¦ì¸m

°²³]Range("F1") ¦p¦³¤½¦¡=COUNTA(P2:P65536)

¶·¨Ì§A¤u§@ªí¨Ó§PÂ_

1.   With Range("P2")
   
2.            .AutoFill .Cells.Resize( ­n±a¤Jªº¼Æ­È )
   
3.        End With

½Æ»s¥N½X