­ã´£³¡ªL

°Ñ¦ÒÀÉ:
Xl0000397-1.rar (13.92 KB)

¤U¸ü¦¸¼Æ: 20

2020-12-12 12:37

­ã´£³¡ªL

¦^´_ 5# lovenice831


30Äæ¬O³sÄòªº¶Ü??? ÁÙ¬O¸õÅDªº???
²Ä´XÄæ¨ì´XÄæ???

­ã´£³¡ªL

¦^´_ 7# lovenice831

Sub ¤ëµ²()
Dim xS As Worksheet, T$, i&, xE As Range
Call ²M°£
Set xS = Sheets("¤ëµ²")
If xS.[C1] = "" Then MsgBox "½Ð¿é¤J¿z¿ï¤å¦r!  ": Exit Sub
For i = 1 To 2
    With Sheets(i)
         If .FilterMode Then .ShowAllData '­Y¤u§@ªí¿z¿ï¤¤, Åã¥Ü[¥þ³¡]
         .[A2].AutoFilter Field:=2, Criteria1:=xS.[C1] '°õ¦æ¿z¿ï
          Set xE = xS.Cells(Rows.Count, 1).End(xlUp)(2)
         .AutoFilter.Range.Offset(1, 2).Resize(, 30).Copy xE '½Æ»s¿z¿ï¸ê®Æ  '2 = cÄæ (±qAÄæºâ°_0-1-2)
         .ShowAllData '«ì´_Åã¥Ü[¥þ³¡]
    End With
Next i
End Sub

­ã´£³¡ªL

¦^´_ 9# lovenice831


§ÚªºÂª©excel¥´¤£¶}ªþ¥ó,
¬Ý§O¤H¯à§_À°¦£~~

­ã´£³¡ªL

¦^´_ 13# lovenice831


¤@¼Ë¥´¤£¶},
WITH SHEETS(1)
À³¸Ó¬O
WITH SHEETS(i)