彰化一整天的論壇

 找回密碼
 立即註冊
樓主: imingho

在Excel中快速比對兩份資料的差異性

[複製鏈接]
發表於 2020-3-22 18:25:56 | 顯示全部樓層
老師你好~~~
請問圖片裡那一行代碼 是哪裡出錯了~~~ 試了很久都不行~~
222.jpg 111.jpg
212KE0034.xls (49 KB, 下載次數: 108)
回復 支持 反對

使用道具 舉報

 樓主| 發表於 2020-3-23 08:58:54 | 顯示全部樓層
微風 發表於 2020-3-22 18:25
老師你好~~~
請問圖片裡那一行代碼 是哪裡出錯了~~~ 試了很久都不行~~

修改過的程式碼.
  1. Private Sub cmdSelectFileA_Click()
  2.     Dim fd As FileDialog    '宣告一個檔案對話框
  3.     Set fd = Application.FileDialog(msoFileDialogFilePicker)  '設定選取檔案功能
  4.         Application.ScreenUpdating = False '關閉螢幕更新
  5.         Application.DisplayAlerts = False  '將警告訊息關閉
  6.         fd.Filters.Clear    '清除之前的資料
  7.         
  8.         Sheet2.Cells.Clear
  9.         Sheet2.Cells.Delete
  10.         Sheet2.Activate
  11.          Sheet2.Cells(1, 1).Select
  12.         
  13.         fd.Filters.Add "Excel File", "*.xls*" '設定顯示的副檔名
  14.         fd.Filters.Add "Text File", "*.txt"
  15.         fd.Filters.Add "CSV Text File", "*.csv"
  16.         fd.Filters.Add "所有檔案", "*.*"
  17.         
  18.             
  19.     If fd.Show = -1 Then
  20.       ' 逐一處理每個檔案
  21.       Range("B8") = fd.SelectedItems(1)
  22.     Filename = Split(Range("B8"), "\")
  23.     Filepath = Filename(UBound(Filename))
  24.     Workbooks.Open (Filepath)
  25.    
  26.     n = Sheets(1).UsedRange.Columns.Count
  27.            count_a = Sheets(1).UsedRange.Rows.Count
  28.    
  29.     Sheets(1).Range(Sheets(1).Range("A1"), Sheets(1).Range(Chr(96 + n) & (count_a))).Copy
  30.     Windows("資料的差異性(上送BOM)").Activate
  31.     Sheet2.Paste
  32.     Workbooks(Filepath).Close
  33.     Else
  34.       Range("B8") = ""
  35.     End If
  36.     Sheet1.Activate
  37.      Application.DisplayAlerts = True '將警告訊息打開
  38.      Application.ScreenUpdating = True '打開螢幕更新
  39. End Sub
複製代碼


資料的差異性(上送BOM).xls

655 KB, 下載次數: 0

售價: 1 金錢  [記錄]  [購買]

回復 支持 反對

使用道具 舉報

發表於 2020-3-26 07:40:09 | 顯示全部樓層
本帖最後由 微風 於 2020-3-26 07:54 編輯
imingho 發表於 2020-3-23 08:58
修改過的程式碼.

我用板主原始檔案~~~~ 在對照表的地方     發現最後幾筆沒有變成紅色~~~
資料B  紅色的字跑很遠~~
麻煩板主測試一下~~~~

111.JPG 複本 在Excel中快速比對兩份資料的差異性.xls (685.5 KB, 下載次數: 147)
回復 支持 反對

使用道具 舉報

 樓主| 發表於 2020-3-26 11:27:22 | 顯示全部樓層
微風 發表於 2020-3-26 07:40
我用板主原始檔案~~~~ 在對照表的地方     發現最後幾筆沒有變成紅色~~~
資料B  紅色的字跑很遠~~
麻煩板 ...

您好,      那是因為您的資料A有重覆資料,請先去除重覆再比對。
比對資料不能重覆.jpg

複本 在Excel中快速比對兩份資料的差異性_20200326.xls

696.5 KB, 下載次數: 1

售價: 1 金錢  [記錄]

回復 支持 反對

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  

GMT+8, 2020-11-28 04:51 , Processed in 0.147080 second(s), 21 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表