請問各位前輩關於Find 與比對Range 問題 - Excel程式區

帖子: 43
主題: 13
精華: 0
積分: 75
點名: 0
作業系統: windows 7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2014-5-6
最後登錄: 2019-6-17

7^# 跳轉到 »

發表於 2014-8-16 14:45 | 只看該作者

本帖最後由 ii31sakura 於 2014-8-16 14:51 編輯

回復 6# GBKEE

不好意思、GBKEE前輩請問一下因小弟使用範例(ex1)可以正確找到想要的答案(比對data最後A&B 兩個儲存格在於來源data屬於哪個row)，
但因小弟將範例用於data筆數破萬時發現執行較久，
故想請問是不是有像(ex2)的Find方式可以尋找正確的答案row在何處呢或是請問(ex1)可指點如何修改呢？？

註：
因ex2中小弟使用 Union將來源data需比較的兩欄放一起想用Find找兩個條件，但實際上還是無法實現我想要的答案(如ex1所能正確的找出第幾列)、
能不能懇請幫忙一下~

find 與比對Range 問題1.zip (18.04 KB)

Sub ex2()
Dim range1 As Range, range2 As Range, range3 As Range, range4 As Range
Dim allrange As Range, allrange1 As Range, c As Integer

b = Worksheets("比對data").[b65536].End(3).Row
c = Worksheets("來源data").[b65536].End(3).Row

Set range1 = Sheets("來源data").Range("A" & 2 & ":" & "A" & c)
Set range2 = Sheets("來源data").Range("b" & 2 & ":" & "b" & c)
Set allrange = Union(range1, range2)

      '此區塊為先找row
      Set findvalue = allrange.Find(What:=Worksheets("比對data").Cells(b, 2))  '←此種只能找尋單一儲存格，請問是否能實現下一段備註情況，可以找兩條件呢？
'Set findvalue = allrange.Find(What:=Worksheets("比對data").Cells(b, 1) & Worksheets("比對data").Cells(b, 2)) '問題點(有方法可正確使兩個儲存格的條件都可找到嗎？此段請問能否指點小弟該如何修改呢？)
      MsgBox findvalue.Row

Set range1 = Nothing: Set range2 = Nothing: Set allrange = Nothing: Set findvalue = Nothing

End Sub

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

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

6^#

發表於 2014-6-27 20:02 | 只看該作者

回復 6# ii31sakura
修改為 R => 由A欄最底部往上到有資料儲存格的列號

'Ar = Sheets("來源data").Range("A1:D5").Value 'sheet"來源data"中("A~D")
With Sheets("來源data")
R = .Cells(.Rows.Count, "a").End(xlUp).Row
Ar = .Range("A1:D" & R).Value 'sheet"來源data"中("A~D")
End With

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

ii31sakura

中學生 Rank: 2

帖子: 43
主題: 13
精華: 0
積分: 75
點名: 0
作業系統: windows 7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2014-5-6
最後登錄: 2019-6-17

5^#

發表於 2014-6-27 17:08 | 只看該作者

回復 4# GBKEE

不好意思、GBKEE前輩可否再請指導一下，
如果來源data資料列位超過比對data列位、請問可從哪邊修改_可比對來源data到最後呢？

註：小弟有將附件內容修改一下(比對data只到第5列、來源data到第5列之後就無法進行比對動作)

可否請麻煩一下~

find 與比對Range 後將欄位copy到某欄 .rar (18.02 KB)

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

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

4^#

發表於 2014-6-24 10:47 | 只看該作者

回復 3# ii31sakura

Sub Ex()
Dim Ar(), i As Integer, S As String, Rng As Range, ss
With Sheets("比對data").Range("A" & Sheets("比對data").Rows.Count).End(xlUp).Resize(, 4)
S = Join(Application.Transpose(Application.Transpose(.Value)), "")
'"比對data"最後一筆的("A~D")的資料
End With
With Sheets("總整理")
.Cells.Clear
.Range("A1").Resize(, 7) = Sheets("來源data").Range("A1").Resize(, 7).Value '表頭
Ar = Sheets("來源data").Range("A1:D5").Value 'sheet"來源data"中("A~D")
For i = 1 To UBound(Ar)
If S = Join(Application.Index(Ar, i), "") Then
Set Rng = Sheets("來源data").Cells(i, "A").Resize(, 7)
MsgBox "在第" & i & " 列找到 " & Join(Application.Transpose(Application.Transpose(Rng.Value)), ",")
.Range("A" & .Rows.Count).End(xlUp).Offset(1).Resize(, 7) = Rng.Value
End If
Next
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

ii31sakura

中學生 Rank: 2

帖子: 43
主題: 13
精華: 0
積分: 75
點名: 0
作業系統: windows 7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2014-5-6
最後登錄: 2019-6-17

3^#

發表於 2014-6-24 10:00 | 只看該作者

回復 2# GBKEE

感謝GBKEE前輩~不好意思再請問一下、小弟如果想知道完全相符的(來源data)是第幾欄位，
如果直接輸入(msgbox s) 則會顯示{("A~D")的資料}內容、如果輸入(msgbox s.address 或 msgbox s row)都顯示"不正確的定位項，
請問小弟該輸入些什麼呢？

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

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

2^#

發表於 2014-6-23 20:32 | 只看該作者

回復 1# ii31sakura
試試看

Sub Ex()
Dim Ar(), i As Integer, S As String
With Sheets("比對data").Range("A" & Sheets("比對data").Rows.Count).End(xlUp).Resize(, 4)
S = Join(Application.Transpose(Application.Transpose(.Value)), "")
'"比對data"最後一筆的("A~D")的資料
End With
With Sheets("總整理")
.Cells.Clear
.Range("A1").Resize(, 7) = Sheets("來源data").Range("A1").Resize(, 7).Value '表頭
Ar = Sheets("來源data").Range("A1:D5").Value 'sheet"來源data"中("A~D")
For i = 1 To UBound(Ar)
If S = Join(Application.Index(Ar, i), "") Then
.Range("A" & .Rows.Count).End(xlUp).Offset(1).Resize(, 7) = _
Sheets("來源data").Cells(i, "A").Resize(, 7).Value
End If
Next
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

[發問] 請問各位前輩關於Find 與比對Range 問題

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]