[µo°Ý] ¦p¦ó¥Ñ³Ì«á¤@¦C¼Æ°_¥h½Æ»s«ü©w¼Æ¶q

luke

¦U¦ì¤j¤j

1.sheet1ªíªºF:GÄ欰¸ê®Æ°Ï¬ù100¸ê®Æ¦C(¼Æ¶q¤£©w),    K:LÄ欰¸ê®Æ¿é¥X°Ï
2.[B2]Àx¦s®æ¬°«þ¨©¼Æ¶q, ·í[B2]=±`¼Æ®É, ¬O§_¯à±q   F:GÄæ³Ì«á¤@¦C¥Ñ¤U©¹¤W¼Æ¨ú³o­Ó°Ï¶ôªºÀx¦s®æ¸ê
  ®Æ¨ÃCopy¦ÜK:LÄæ.

¨Ò¦p:[B2]=3, F:GÄ榳11­Ó¸ê®Æ¦C(F1:G11). ·í«ö¤U«ö¶s¬O§_¥i¥H¥Ñ¤U©¹¤W¦@½Æ»s3­Ó°Ï¶ô¸ê®Æ§YF9:G11¦ÜK1Àx¦s®æ¦pªþÀÉ»¡©ú.
¦P²z: ­Y[B2]=5´N½Æ»sF7:G11¦@5µ§¸ê®Æ¦C¦ÜK1Àx¦s®æ   ¾l¦¹Ãþ±À....
 
VBA¦p¦ó¼g¥X¨Ó?
copy.rar (15.36 KB)

¤U¸ü¦¸¼Æ: 5

2013-5-7 22:37

stillfish00

¦^´_ 1# luke

1. Sub TEST()
   
2. Dim r As Long
   
3. With Sheets("sheet1")
   
4.   .[K:L].ClearContents
   
5.   r = Application.Max(.Cells(.Rows.Count, "F").End(xlUp).Row, .Cells(.Rows.Count, "G").End(xlUp).Row)
   
6.   .[K1].Resize(.[B2], 2) = .Cells(r - .[B2] + 1, "F").Resize(.[B2], 2).Value
   
7. End With
   
8. End Sub

½Æ»s¥N½X

luke

¦^´_ 2# stillfish00

    °õ¦æOK
    ÁÂÁÂstillfish00
   
¥H¤W

GBKEE

¦^´_ 2# stillfish00
¼Ó¥D¦³»¡: ·í[B2]=±`¼Æ®É ­n¦³°£¿ù

1. Option Explicit
   
2. Sub Ex()
   
3.     With Sheets("Sheet1")
   
4.         If .[B2] > 0 And .[B2] <= Application.CountA(.[F:F]) Then
   
5.             .[K:L] = ""
   
6.              .[K1].Resize(.[B2], 2) = .Range("F" & .Rows.Count).End(xlUp).Offset(1 - .[B2]).Resize(.[B2], 2).Value
   
7.             
   
8.              '.Range("F" & .Rows.Count).End(xlUp).Offset(1 - .[B2]).Resize(.[B2], 2).Copy .[K1]     '½Æ»s
   
9.             
   
10.         Else
    
11.             MsgBox "B2 ¦³»~"
    
12.         End If
    
13.     End With
    
14. End Sub

½Æ»s¥N½X

stillfish00

¦^´_ 4# GBKEE
¬Oªº¡A·PÁ­ץ¿¡C