过滤并复制到新的工作表（新工作表将按过滤的项目命名）

Question

我有一个主数据，我需要根据某些标准将其分成几张纸，同时我希望将新纸页重命名为与该标准相同。

VBA代码如下。 我可以更改名称“ 101 transport inc”以遵循Criteria1:=worksheets("CHK").Range("C5")吗？

Sheets("RAW Data").Select
    ActiveSheet.Range("$A$7:$U$2000").AutoFilter Field:=7, 
Criteria1:=Worksheets("CHK").Range("C5")
    Range("A7").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets.Add(After:=Sheets(Sheets.Count)).Name = "101 Transport Inc"
    ActiveSheet.Paste

Answer 1

工作表的.Name属性允许您更改工作表的名称。 但是，请注意不要重复运行两次。 重命名工作表后，如果处理不当，将出现“下标超出范围”错误。

Sheets("101 Transport Inc").Name = Worksheets("CHK").Range("C5")