­ã´£³¡ªL

Sub TEST()
Dim Frng As Range, xE As Range
If Sheets("Sheet1").FilterMode = False Then MsgBox "©|¥¼°õ¦æ¿z¿ï": Exit Sub
Set Frng = Sheets("Sheet1").AutoFilter.Range.Offset(1, 0)
Set Frng = Frng.SpecialCells(xlCellTypeVisible).Rows(1)
Set xE = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp)
If xE.Row = 1 Or xE <> "" Then Set xE = xE(2)
Frng.Copy xE
End Sub

­ã´£³¡ªL

¦^´_ 4# peter95


Sub TEST()
Dim Frng As Range, xE As Range
If Sheets("Sheet1").FilterMode = False Then MsgBox "©|¥¼°õ¦æ¿z¿ï": Exit Sub
Set Frng = Sheets("Sheet1").AutoFilter.Range.Offset(1, 0)
Set Frng = Frng.SpecialCells(xlCellTypeVisible).Rows(1)

Frng.Copy Sheets("Sheet2").Range("A2")
End Sub