|
各位老师
我想用VB把按照某一字段筛选出来的内容保存到单独的一个表并按照筛选字段来命名,我用宏取到了代码,但是命名没法实现,求教我的代码 Sub 宏1()
' Dim i As Integer
Dim rng As String
For i = 2 To 9
rng = Range("N" & i).Value
ActiveWindow.SmallScroll Down:=-18
ActiveSheet.Range("$A$1:$H$5001").AutoFilter Field:=2, Criteria1:=rng
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets.Add After:=ActiveSheet
ActiveSheet.Paste
ActiveSheet.Move
ChDir "E:\Desktop\目标"
ActiveWorkbook.SaveAs Filename:="E:\Desktop\目标\rng.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Next
End Sub
|
|