Question

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

VBA代码如下。我知道我可以更改名称＆＃34; 101 transport inc＆＃34;按照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

。Worksheets的.Name属性允许您更改工作表的名称。但是，请注意不要两次运行。重新命名工作表后，您将获得超出范围的＆＃34;下标＆＃34;＆＃34;如果处理不当，则会出错。

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

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

1 个答案: