Attribute VB_Name = "模块1"
Sub 拆分()
Attribute 拆分.VB_ProcData.VB_Invoke_Func = "O\n14"
'
' 拆分 宏
'
' 快捷键: Ctrl+Shift+O
'
    Rows("2:2").Select
    Selection.Copy
    Windows("4G室外 - 拆分样本.xlsx").Activate
    ActiveSheet.Paste
    Windows("4G室外 - 批量.xlsx").Activate
    Sheets("无源波分网元").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("4G室外 - 拆分样本.xlsx").Activate
    Sheets("无源波分网元").Select
    ActiveSheet.Paste
    Windows("4G室外 - 批量.xlsx").Activate
    Sheets("无源波分端口").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("4G室外 - 拆分样本.xlsx").Activate
    Sheets("无源波分端口").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("4G室外 - 批量.xlsx").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Windows("4G室外 - 拆分样本.xlsx").Activate
    ActiveSheet.Paste
    Sheets("天线").Select
    Windows("4G室外 - 批量.xlsx").Activate
    Sheets("天线").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("4G室外 - 拆分样本.xlsx").Activate
    ActiveSheet.Paste
    Sheets("EUTRANCELL").Select
    Windows("4G室外 - 批量.xlsx").Activate
    Sheets("EUTRANCELL").Select
    Rows("2:2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("4G室外 - 拆分样本.xlsx").Activate
    ActiveSheet.Paste
    Sheets("逻辑RRU").Select
    Windows("4G室外 - 批量.xlsx").Activate
    Sheets("逻辑RRU").Select
    Rows("2:2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("4G室外 - 拆分样本.xlsx").Activate
    ActiveSheet.Paste
    Sheets("逻辑AAU").Select
    Windows("4G室外 - 批量.xlsx").Activate
    Sheets("逻辑AAU").Select
    Rows("2:2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("4G室外 - 拆分样本.xlsx").Activate
    ActiveSheet.Paste
    Sheets("RRU").Select
    Windows("4G室外 - 批量.xlsx").Activate
    Sheets("RRU").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("4G室外 - 拆分样本.xlsx").Activate
    ActiveSheet.Paste
    Sheets("AAU").Select
    Windows("4G室外 - 批量.xlsx").Activate
    Sheets("AAU").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("4G室外 - 拆分样本.xlsx").Activate
    ActiveSheet.Paste
    Sheets("AAU").Select
    Windows("4G室外 - 批量.xlsx").Activate
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    Sheets("天线-工参").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Sheets("无源波分网元").Select
    Selection.Delete Shift:=xlUp
    Sheets("无源波分端口").Select
    Selection.Delete Shift:=xlUp
    Sheets("天线").Select
    Selection.Delete Shift:=xlUp
    Sheets("EUTRANCELL").Select
    Selection.Delete Shift:=xlUp
    Sheets("逻辑RRU").Select
    Selection.Delete Shift:=xlUp
    Sheets("逻辑AAU").Select
    Selection.Delete Shift:=xlUp
    Sheets("RRU").Select
    Selection.Delete Shift:=xlUp
    Sheets("AAU").Select
    Selection.Delete Shift:=xlUp
    Sheets("板卡").Select
    Selection.Delete Shift:=xlUp
    Sheets("铁塔").Select
    Selection.Delete Shift:=xlUp
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    Sheets("天线-工参").Select
    Rows("2:2").Select
End Sub