AutoFilter Field:=1, Criteria1:='<>Test String' .Copy 'Copy visible data End With With newWs.Cells .PasteSpecial xlPasteColumnWidths .
確定! 回上一頁