小编Tho*_*mas的帖子

我是编码的新手.这个宏运行缓慢,我希望有人可以帮我清理它.在此先感谢您的帮助.

我开发了代码来更新我公司的"呼叫路由器"工作表,其中包含从外部源购买的新线索.这些潜在客户以原始格式在名为Fresh Agents Leads的工作表中找到我们.一旦将"Fresh Agent Leads"表单复制到包含"Call Router"工作表的"MSS Call Routing Master List"文件中,宏就会减少原始数据,以便消除我们不使用的部分.然后它重新格式化剩余的内容以匹配旧呼叫路由器工作表的格式并合并这两者.然后,它将新的主表重命名为Call Router.

该代码旨在从包含Fresh Agent Leads Sheet的工作簿内部开始.在执行代码之前,指示用户在桌面上打开Fresh Agents Leads File和MSS Call Routing Master List.

    Sheets("Fresh Agent Leads").Select
    Sheets("Fresh Agent Leads").Copy After:=Workbooks( _
        "MSS Call Routing Master List.xlsx").Sheets(1)
    Columns("F:F").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A1").Select
    Selection.Copy
    Columns("F:F").Select
    ActiveSheet.Paste
    Columns("A:A").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft
    Columns("E:E").Select
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Columns("G:S").Select
    Selection.Delete Shift:=xlToLeft
    Rows("1:1").Select
    Selection.Delete Shift:=xlUp
    Columns("C:C").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "=CONCATENATE(RIGHT(RC[1],4))"
    Range("C1").Select
    Selection.AutoFill Destination:=Range("C1:C1048575")
    Range("C1:C1048575").Select

    Sheets("Call Router").Select
    Rows("1:1").Select
    Selection.Copy …

此代码旨在获取原始数据的电子表格,省略多个列,并重新格式化剩余的内容.我欢迎对代码的任何批评,因为我是VBA的新手并且一无所知.关键问题是在下面用astriscs指示的行代码的末尾.这是出现"编译错误:无效限定符"的地方.我正在尝试将格式应用于列B和F,但我只希望它到最后一行日期.最后一行数据将从一张纸到另一张不同.

触发错误时,调试器会突出显示"count"一词.

在此先感谢您的帮助.

Sub Macro2()
'
' Macro2 Macro
'
Union(Range("A:A"), Range("F:F"), Range("K:Q"), Range("S:V")).Delete
Range("A1").Select
ActiveCell.FormulaR1C1 = "FIRST"
Range("B1").Select
ActiveCell.FormulaR1C1 = "LAST"
Range("C1").Select
ActiveCell.FormulaR1C1 = "G"
Range("D1").Select
ActiveCell.FormulaR1C1 = "PHONE"
Range("E1").Select
ActiveCell.FormulaR1C1 = "ADDRESS"
Range("F1").Select
ActiveCell.FormulaR1C1 = "CITY"
Range("G1").Select
ActiveCell.FormulaR1C1 = "STATE"
Range("H1").Select
ActiveCell.FormulaR1C1 = "ZIP"
Range("I1").Select
ActiveCell.FormulaR1C1 = "MONTH"
Range("J1").Select
ActiveCell.FormulaR1C1 = "YEAR"
Columns("e:h").Insert Shift:=xlToRight
Columns("A:B").ColumnWidth = 12
Columns("C:C").ColumnWidth = 2
Columns("D:d").ColumnWidth = 13
Columns("e:e").ColumnWidth = 0.38
Columns("F:F").ColumnWidth = 5
Columns("G:G").ColumnWidth = 11
Columns("H:H").ColumnWidth = 0.38
Columns("I:N").ColumnWidth = 14 …