對比不相同的資料 - Excel程式區

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 247
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-14

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

12^#

發表於 2010-6-23 19:51 | 只看該作者

回復 10# GBKEE
沒有正規方法
當我發現整欄會被認為有資料時
而且CODE函數讀取內容卻會出錯,就知道含有不可見字元
要清除它不是用delete就是用資料剖析最快

學海無涯_不恥下問

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

13^#

發表於 2010-6-24 06:58 | 只看該作者

回復 12# Hsieh
謝謝Hsieh板主的解說
當我執行你的程式後的結果不是預期的只發現Ctrl+方向鍵有異但沒有朝不可見字元方向想
可是它好像只要用資料剖析就可以恢復正常卻找不出是那一個不可見字元

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

14^#

發表於 2010-6-24 20:41 | 只看該作者

回復 4# sping
純參考
用Find方法

Sub 同工作表不同欄位之比對()
Dim Rng(1 To 2) As Range, F As Range, d1 As Object, d2 As Object, A As Range
Set d1 = CreateObject("Scripting.Dictionary")
Set d2 = CreateObject("Scripting.Dictionary")
d1("相同Name") = ""
d2("不相同Name") = ""
With Sheets("同工作表之比對")
Set Rng(1) = .Range("A3", .Range("A" & Rows.Count).End(xlUp))
Set Rng(2) = .Range("B3", .Range("B" & Rows.Count).End(xlUp))
For Each A In .Range(Rng(1).Address & "," & Rng(2).Address)
If A <> "" Then
Set F = Rng(IIf(A.Column = Rng(1).Column, 2, 1)).Find(A.Text, lookat:=xlWhole)
If Not F Is Nothing Then
d1(A.Text) = ""
Else
d2(A.Text) = ""
End If
End If
Next
End With
With Sheets("同工作表之比對")
.Range("c3:d65536") = ""
.[c2].Resize(d1.Count, 1) = Application.Transpose(d1.keys)
.[d2].Resize(d2.Count, 1) = Application.Transpose(d2.keys)
End With
End Sub

複製代碼

sping

中學生 Rank: 2

帖子: 25
主題: 4
精華: 0
積分: 156
點名: 0
作業系統: vista
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2021-8-29

論壇贊助勳章論壇榮譽勳章

15^#

發表於 2010-6-24 21:45 | 只看該作者

回復 14# GBKEE

謝謝你熱心幫忙修改，你和hsieh版主的程式碼對我都很有幫助，我會留下來研究。

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 30
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-10-24

16^#

發表於 2012-11-9 10:14 | 只看該作者

如果是不同的excel呢？怎樣寫？c:\....?

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 30
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-10-24

17^#

發表於 2012-11-9 10:29 | 只看該作者

Sub sample()

Dim LastRec As Integer
Dim j As Integer
Dim i As Integer
Dim l As Integer
Dim data() As Range
l = 1

Worksheets("Sheet1").Range("A1").Select
ActiveCell.End(xlDown).Select
LastRec = ActiveCell.Row

For j = 1 To LastRec

i = Application.Match(Sheet1.Cells(1, j), "='C:\Users\Desktop\[1.xlsx]Sheet1'!.Range("A:A"), 0)

If Sheet1.Cells(i, 2).Value <> Sheet2.Cells(i, 2).Value Then

Sheet1.Cells(i, 2).Value = Sheet2.Cells(i, 2).Value
Sheet1.Cells(i, 2).Interior.Color = RGB(255, 200, 255)
End If

Next j

End Sub
請問i = Application.Match(Sheet1.Cells(1, j), "='C:\Users\Desktop\[1.xlsx]Sheet1'!.Range("A:A"), 0)這句哪裡出錯？我想在一個excel內找出桌面的另一個（1.xlsx) excel內相同的名稱，如果他們的值不同就改成另一個（1.xlsx) excel內的值

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 30
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-10-24

18^#

發表於 2012-11-9 10:33 | 只看該作者

另外請問vba可否讓一個excel 可以同時讓多位用家使用，輸入資料及儲存？

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 247
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-14

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

19^#

發表於 2012-11-9 17:48 | 只看該作者

不同檔案間做比對就必須兩個檔案都在開啟狀態下讀取資料比對
不妨將檔案上傳以便了解資料結構

學海無涯_不恥下問

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 30
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-10-24

20^#

發表於 2012-11-9 21:48 | 只看該作者

回復 20# Hsieh

要同時打開沒問題，但如何寫？
我有見過有人寫的vba不用打開兩個檔案，就可以vlookup相同名，然後就同名的相應資料傳回在當前的sheet內同名的相對位置