資料合併問題 - Excel程式區 - 麻辣家族討論版版

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章

1^# 跳轉到 »

發表於 2014-12-25 09:23 | 顯示全部帖子

回復 1# smallpoper

先將檔案另存為『xlsm』，再將以下程式加入模組中!!

Sub test()
Sheets("合併後").Cells.Delete Shift:=xlUp
Sheets("合併後").Range("A1:j1") = Array("No", "X", "Y", "TESTERNO", "BINNO", "VF", "VB", "VB1", "IR", "IR1")
Sheets("合併前").Select
Cells(1, 1).Select
i = 1
Do
str1 = Cells(1, i).Value
last_row = Cells(1, i + 1).End(xlDown).Row
Sheets(1).Range(Cells(2, i), Cells(last_row, i + 9)).Copy
Sheets(2).Select
Sheets(2).[a65535].End(xlUp).Offset(1).PasteSpecial
ActiveCell.Resize(last_row - 1).Value = str1
i = i + 11
Sheets(1).Select
Loop While Sheets(1).Cells(1, i).Value <> ""
[a1].Activate
ThisWorkbook.Save
MsgBox "合併完成!!"
End Sub

複製代碼

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章

2^#

發表於 2014-12-25 17:12 | 顯示全部帖子

回復 3# GBKEE

感謝 GBKEE 大大的指導，
您寫的程式真的是太深奧了，
光是『SpecialCells(xlCellTypeConstants)』所延伸出來的問題我就研究好久了，
請問有相關的書籍可以參考嗎??

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章

3^#

發表於 2014-12-26 09:31 | 顯示全部帖子

回復 5# GBKEE

GBKEE 大大，請問您是指Excel的說明嗎??

就『SpecialCells(xlCellTypeConstants)』我就查不到了，
是我在安裝office時就沒有安裝嗎??

[發問] 資料合併問題