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

imingho

一般處理輸出的資料很多部分的欄位都相同只是有一兩個欄位會有差異，這時候如果是管理者要看或是列印都很麻煩，如果可以把不同的那一個欄位合併成一欄，不僅列印時省紙，給其他人看時也很精簡，但是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           修正合併欄位如果是數字會出現錯誤

免費下載(mergertool_v2.xls ):http://download.bestdaylong.com/f3.htm

免費下載(mergertool_adv.xls ):http://download.bestdaylong.com/f4.htm

1.處理前資料

2.處埋後資料

3.設定畫面

imingho

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

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

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

imingho

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/09/12程式碼:

1. 
   
2. Private Sub cmdClear_Click()
   
3.     Sheet2.Cells.Clear
   
4. End Sub
   
5. 
   
6. Private Sub cmdCompareab_Click()
   
7.     Dim n As Integer '欄位數
   
8.     Dim count_a As Double  '資料ab的筆數
   
9.     Dim temp As String
   
10.    
    
11.     Sheet2.Activate
    
12.     count_a = Selection.SpecialCells(xlCellTypeLastCell).Row
    
13.     n = Selection.SpecialCells(xlCellTypeLastCell).Column
    
14.    
    
15.     Sheet1.Activate
    
16.     m = Sheet1.Range("b4")  '合併第m個欄位
    
17.     a = 1
    
18.     b = 0
    
19.     c = Sheet1.Range("b2")  '比對第一個欄位
    
20.     d = Sheet1.Range("b3")  '比對第二個欄位
    
21.     calc_field = Sheet1.Range("b5")
    
22.     symbol = Sheet1.Range("b1") '合併符號
    
23.    
    
24.     Sheet3.Cells.Clear
    
25.    
    
26.    
    
27.     For j = 1 To n
    
28.         Sheet3.Cells(1, j) = Sheet2.Cells(1, j)
    
29.     Next
    
30. 
    
31.    
    
32.     For i = 2 To count_a
    
33.         temp1 = ""
    
34.         temp2 = ""
    
35.         
    
36.         If c > 0 Then
    
37.            temp1 = Sheet2.Cells(i, c)
    
38.            temp2 = Sheet2.Cells(i - 1, c)
    
39.         End If
    
40.         
    
41.         If d > 0 Then
    
42.            temp1 = temp1 & Sheet2.Cells(i, d)
    
43.            temp2 = temp2 & Sheet2.Cells(i - 1, d)
    
44.         End If
    
45.         
    
46.         If temp1 <> temp2 Then
    
47.             a = a + 1
    
48.             For j = 1 To n
    
49.                
    
50.                 Sheet3.Cells(a, j) = Sheet2.Cells(i, j)
    
51.             Next
    
52.         Else
    
53.             Sheet3.Cells(a, m).NumberFormatLocal = "@" '將儲存格試為文字格式
    
54.             Sheet3.Cells(a, m) = Sheet3.Cells(a, m).Text & symbol & Sheet2.Cells(i, m).Text
    
55.         End If
    
56.         
    
57.         If calc_field > 0 Then
    
58.             Sheet3.Cells(a, n + 1) = Sheet3.Cells(a, n + 1) + Sheet2.Cells(i, calc_field)
    
59.         End If
    
60.         
    
61.         DoEvents
    
62.         
    
63.         Sheet1.Range("b6") = i / count_a
    
64.     Next
    
65.    
    
66.     MsgBox "處理完畢!!,請切換到活頁[處理後]查看結果", vbOKOnly, "彰化一整天的blog(http://272586.blogspot.com/)"
    
67.    
    
68. End Sub
    

複製代碼

coccolith

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

imingho

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

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

coccolith

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

coccolith

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

imingho

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

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

安軒

工作上剛好有需要

希望可以下載~

imingho

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

希望可以下載~

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

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