excel - VBA RunAll Macros 正在插入重复的列

Question

我正在尝试将我创建的两个宏组合成一个RunALL宏。我用于RunAll宏的内容如下。当我使用RunAll宏时会发生什么，它会创建两个具有相同名称的列。我试图在此处附上照片，以供您查看。

我究竟做错了什么？

Sub RunAll()
    Call CopyWorkbook
    Call InsertColumn
End Sub

CopyWorkbook 宏是...

Sub CopyWorkbook()
    Dim sourceSheet As Worksheet
    Dim destSheet As Worksheet

    'copy from the source
    Workbooks.Open Filename:="X:\Safety\Chris A\Employee Safety   Profile\Speeding_Report.xlsm"
    Set sourceSheet = Worksheets("Report")
    sourceSheet.Activate
    sourceSheet.Cells.Select
    Selection.Copy

    'paste to the destination
    Workbooks.Open Filename:="X:\Safety\Chris A\Employee Safety Profile\Employee_Safety_Profile.xlsm"
    Set destSheet = Worksheets("Speeding")
    destSheet.Activate
    destSheet.Cells.Select
    destSheet.Paste
End Sub

InsertColumn 宏是....

Sub InsertColumn()
    Columns("E:E").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("E9").Value = "Full Name"

    Columns("F:F").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("F9").Value = "UUID"     
End Sub

标签： excelvbaduplicates