小姿 asked in 電腦與網際網路軟體 · 1 decade ago

EXCEL 複製不同SHEET相同欄位

我爬了很多資料,還是查不到應該如何做...

我有兩個問題

1.想把40個EXCEL檔案的第二個SHEET (都叫做訂單),通通匯整到新的EXCEL

(每個檔案的第一個SHEET都叫做 明細,第二個都叫做 訂單 )

2.完成1之後 新增一個SHEET彙整每個SHEET裡面的 B欄(B3:B276)、E欄(E3:E276)、H欄 (H3:H276)複製到總表裏面。(連格式顏色都要)

拜託大家幫我回答,我可以給最高點 ^^

Update:

我已經知道第一個怎麼處理了,現在只要知道第二點即可 ^^

1 Answer

Rating
  • 1 decade ago
    Favorite Answer

    要完成這個工作,最直接就是用VBA巨集:

    在完成的這個檔,下指令:

    -新增SHEET,並命名

    Sheets.Add

    Sheets('新表')Select

    Sheets('新表').Name = '檔名'

    -彙整每個SHEET裡面的 B欄(B3:B276)、E欄(E3:E276)、H欄 (H3:H276)

    -將Sheet1 B欄(B3:B276)、E欄(E3:E276)、H欄 (H3:H276)分別貼到新表A欄(A3:A276)、B欄(B3:B276)、C欄 (C3:C276)中

    Sheets('Sheet1').Select

    Range('B3:B276').Select

    Application.CutCopyMode = False

    Selection.Copy

    Sheets('新表').Select

    Range('A3:A276').Select

    ActiveSheet.Paste

    Sheets('Sheet1').Select

    Range('E3:E276').Select

    Application.CutCopyMode = False

    Selection.Copy

    Sheets('新表').Select

    Range('B3:B276').Select

    ActiveSheet.Paste

    Sheets('Sheet1').Select

    Range('H3:H276').Select

    Application.CutCopyMode = False

    Selection.Copy

    Sheets('新表').Select

    Range('C3:C276').Select

    ActiveSheet.Paste

    -以此類推

    繼續將Sheet2 B欄(B3:B276)、E欄(E3:E276)、H欄 (H3:H276)分別貼到新表欄D(D3:D276)、E欄(E3:E276)、F欄 (F3:F276)中,同上,只需更改表名與欄位即可...

Still have questions? Get your answers by asking now.