[µo°Ý] ½Ð°Ý¿z¿ï«áªºµ²ªG¦p¦ó½Æ»s

cksmark129

½Ð°Ý
¦pªþÀÉ
·í"¤u§@ªí1" AÄæ¿z¿ï "2" ªºµ²ªG¡A©Ò±o·|¬°¤Tµ§¸ê®Æ¡C±N¦¹¤Tµ§¸ê®Æ¤§µ²ªG½Æ»s©ó"¤u§@ªí2" ¤§ A1 ¶K¤W
·í"¤u§@ªí1" AÄæ¿z¿ï "0" ªºµ²ªG¡A©Ò±o·|¬°¹sµ§¸ê®Æ¡C±N¦¹¹sµ§¸ê®Æ¤§µ²ªG½Æ»s©ó"¤u§@ªí2" ¤§ A1  ¶K¤W

­n«ç»ò¨Ï¥ÎVBA¼g

ÁÂÁÂ

rouber590324

SIR
1.¿z¿ï»Ý¨D KEY IN ©ó Sheet1.Range("C1") ¤º
2.µ{¦¡¦p¤U  

Sub AA()
Sheet2.[A2:A65536].ClearContents
X = Sheet1.[A65536].End(xlUp).Row
Y = Sheet2.[A65536].End(xlUp).Row
For M = 2 To X
If Sheet1.Cells(M, 1) = Sheet1.Range("C1") Then
  Sheet2.Cells(Y + 1, 1) = Sheet1.Cells(M, 1)
  Y = Y + 1
  End If
  Next
End Sub

Hsieh

¦^´_ 1# cksmark129

1. Sub ex()
   
2. ¤u§@ªí2.[A:B].ClearContents
   
3. With ¤u§@ªí1
   
4. mystr = InputBox("¿é¤J·Ç«h", , 2)
   
5. With .Range("A1").CurrentRegion
   
6.    .AutoFilter 1, "=" & mystr
   
7.    .SpecialCells(xlCellTypeVisible).Copy ¤u§@ªí2.[A1]
   
8.    .AutoFilter
   
9. End With
   
10. End With
    
11. End Sub

½Æ»s¥N½X

­ã´£³¡ªL

Sub CopyFilter()
With Sheets("¤u§@ªí1")
     If Not .FilterMode Then Exit Sub
     Sheets("¤u§@ªí2").UsedRange.Clear
     .AutoFilter.Range.Offset(1, 0).Copy [¤u§@ªí2!A1]
End With
End Sub

cksmark129

¦^´_ 3# Hsieh
ÁÂÁ¶W¯Åª©¥D¦^´_,
¤§«e¤]¬O¹Á¸Õ¥Î SpecialCells(xlCellTypeVisible).Copy,
¦ý³o¼Ë·|±N Type & TXT ¦¹¨â®æ¤]¤@¨Ö½Æ»s (§Ú¥u»Ý­n¦C2¥H¤Uªº¸ê®Æ)