在Excel快速合併相同資料的其它欄位(2欄比對)

imingho · 發表於 2013-3-6 15:51:17

本帖最後由 imingho 於 2015-2-5 17:34 編輯

一般處理輸出的資料很多部分的欄位都相同只是有一兩個欄位會有差異，這時候如果是管理者要看或是列印都很麻煩，如果可以把不同的那一個欄位合併成一欄，不僅列印時省紙，給其他人看時也很精簡，但是Excel沒有這樣的功能，所以用Excel寫了這麼一個工具，我用學校的課程來舉例。

圖文說明:http://272586.blogspot.tw/2009/0 ... mment=1362417030605

檔案名稱:mergertool_v2.xls

2015/2/5 增加可以選擇要不要有合併欄位

2015/2/3 修正合併欄位如果太長會出現#號(mergertool_v2.xls)
2013/10/25 新增自訂多欄功能檔案(mergertool_adv.xls)

2013/9/12 修正有些0開頭的欄位0會消失

2013/3/6 修正合併欄位如果是數字會出現錯誤

1.處理前資料

2.處埋後資料

3.設定畫面

imingho · 發表於 2015-2-10 20:20:50

audreywu1977 發表於 2015-2-10 12:08
您好，
附上處理前/處理後的檔案
規則: 同樣的料號,列合併(數量加總, 位置合併) ...

audreywu1977您好,
目前您要的功能是有的,只是它的加總欄位在最後一欄.您可以先將資料排序再執行就可以.

1.您依照圖表中的設定執行看看.

imingho · 發表於 2013-10-25 11:15:55

coccolith 發表於 2013-10-24 17:24
imingho您好
我上傳了一個測試檔案
想要比較第1和第2欄(A和B column)，然後用逗號合併第3到第7欄(C到G colu ...

您好,
我修改成另一個可以自訂多欄位功能的版本mergertool_adv.xls,麻煩您下載該版本.

1.設定畫面，比較欄位的AB欄要先排序

2.處理前

3.處理後

imingho · 發表於 2013-9-12 11:24:41

2013/09/12程式碼:

Private Sub cmdClear_Click()
Sheet2.Cells.Clear
End Sub
Private Sub cmdCompareab_Click()
Dim n As Integer '欄位數
Dim count_a As Double '資料ab的筆數
Dim temp As String
Sheet2.Activate
count_a = Selection.SpecialCells(xlCellTypeLastCell).Row
n = Selection.SpecialCells(xlCellTypeLastCell).Column
Sheet1.Activate
m = Sheet1.Range("b4") '合併第m個欄位
a = 1
b = 0
c = Sheet1.Range("b2") '比對第一個欄位
d = Sheet1.Range("b3") '比對第二個欄位
calc_field = Sheet1.Range("b5")
symbol = Sheet1.Range("b1") '合併符號
Sheet3.Cells.Clear
For j = 1 To n
Sheet3.Cells(1, j) = Sheet2.Cells(1, j)
Next
For i = 2 To count_a
temp1 = ""
temp2 = ""
If c > 0 Then
temp1 = Sheet2.Cells(i, c)
temp2 = Sheet2.Cells(i - 1, c)
End If
If d > 0 Then
temp1 = temp1 & Sheet2.Cells(i, d)
temp2 = temp2 & Sheet2.Cells(i - 1, d)
End If
If temp1 <> temp2 Then
a = a + 1
For j = 1 To n
Sheet3.Cells(a, j) = Sheet2.Cells(i, j)
Next
Else
Sheet3.Cells(a, m).NumberFormatLocal = "@" '將儲存格試為文字格式
Sheet3.Cells(a, m) = Sheet3.Cells(a, m).Text & symbol & Sheet2.Cells(i, m).Text
End If
If calc_field > 0 Then
Sheet3.Cells(a, n + 1) = Sheet3.Cells(a, n + 1) + Sheet2.Cells(i, calc_field)
End If
DoEvents
Sheet1.Range("b6") = i / count_a
Next
MsgBox "處理完畢!!,請切換到活頁[處理後]查看結果", vbOKOnly, "彰化一整天的blog(http://272586.blogspot.com/)"
End Sub

複製代碼

coccolith · 發表於 2013-10-24 15:49:43

示範檔案裡面合併的欄位只能填寫一個，但是我想要合併的不只一欄(大概5欄)，但是不知道怎麼修改您的VBA，請問要如何操作呢？非常感謝您喔！

imingho · 發表於 2013-10-24 16:10:20

coccolith 發表於 2013-10-24 15:49
示範檔案裡面合併的欄位只能填寫一個，但是我想要合併的不只一欄(大概5欄)，但是不知道怎麼修改您的VBA，請 ...

coccolith您好,
是否可以上傳一個測試的Excel檔案資料,我幫您改看看是否可以用.

coccolith · 發表於 2013-10-24 17:24:24

imingho您好
我上傳了一個測試檔案
想要比較第1和第2欄(A和B column)，然後用逗號合併第3到第7欄(C到G column)
https://mega.co.nz/#!Up5RhQpa!dA ... QK57c00YBO58BwV_2Vo
謝謝您！

coccolith · 發表於 2013-10-25 14:27:59

imingho您好，
真是太厲害了！
不過我發現若是A(English name)或B欄(Chinese name)有遺漏值(空白)的話，資料無法合併
因為要跑的資料大概有上千筆無法每一筆資料都確認A和B都有
如果希望在A或B欄有遺漏值的情況下還能合併後面的欄位的話
這個有辦法修正嗎？
謝謝您！

imingho · 發表於 2013-10-25 14:38:06

coccolith 發表於 2013-10-25 14:27
imingho您好，
真是太厲害了！
不過我發現若是A(English name)或B欄(Chinese name)有遺漏值(空白)的話，資 ...

您可以用A欄比對.B欄會自動抓第一筆,
或是您可以利用
Excel的特殊填滿效果
http://blog.bestdaylong.com/2008/04/excel.html

安軒 · 發表於 2013-10-29 09:40:08

工作上剛好有需要

希望可以下載~

imingho · 發表於 2013-10-29 09:49:43

安軒發表於 2013-10-29 09:40
工作上剛好有需要

希望可以下載~

您好,
請問您是要下載那一個版本,一般版本金錢2元的，只要加入會員就可以下載，另外進階版是要金錢5元,您只要明天登入就可以下載.

discuz如何查看所獲金錢
http://discuz.bestdaylong.com/fo ... 30748&fromuid=2

		自動登錄	找回密碼
密碼			立即註冊