ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

½Ð°Ý
¦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

ÁÂÁÂ

½d¥».zip (6.82 KB)

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
ù

TOP

¦^´_ 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²P_¤£®¢¤U°Ý

TOP

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

TOP

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

TOP

        ÀR«ä¦Û¦b : ¯à¥I¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD