在同一列同時比對兩欄資料方法 - Excel程式區

[發問] 在同一列同時比對兩欄資料方法

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

1^# 跳轉到 »

發表於 2012-8-2 07:01 | 顯示全部帖子

我主要是想知道該列的位置，然後擷取某幾個欄位的資料填到別的欄位上假面超人發表於 2012/8/2 00:24

上傳檔案來看看

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

2^#

發表於 2012-8-2 17:00 | 顯示全部帖子

回復 9# 假面超人
依據你的檔案寫下進階篩選的程式

Option Explicit
Sub Ex()
Dim Rng(1 To 2) As Range
Set Rng(1) = Sheet1.Range("a1").CurrentRegion '進階篩選: 準則範圍取得為 Sheet1[A1:A3]
Set Rng(2) = Sheets("最終結果").Range("A1").CurrentRegion
Rng(2) = "" '清理先前篩選的資料
Rng(1).Rows(1).Copy Rng(2).Cells(1) '複製準則的欄位
'試試看將上一行程式碼註解不執行看看
'進階篩選 : 複製到目的範圍第1列有那些資料庫的欄位就顯示那些資料
'如空白會顯示全部欄位的資料
Sheet2.Range("A1").CurrentRegion.AdvancedFilter xlFilterCopy, Rng(1), Rng(2).CurrentRegion
End Sub

複製代碼

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

3^#

發表於 2012-8-2 20:46 | 顯示全部帖子

回復 13# 假面超人

Option Explicit
Sub Ex() '有多於2個以上的工作表要篩選
Dim Rng(1 To 3) As Range, a As Integer, Sh_Count As Integer
Sh_Count = Sheets.Count '此活頁簿中工作表的總數
Set Rng(1) = Sheets(1).Range("a1").CurrentRegion '進階篩選: 準則範圍取得為 Sheet1[A1:A3]
'Set Rng(2) = Sheets("最終結果").Range("A1").CurrentRegion '改為此活頁簿中最後的工作表
Set Rng(2) = Sheets(Sh_Count).Range("A1").CurrentRegion
Rng(2) = "" '清理先前篩選的資料
Rng(1).Rows(1).Copy Rng(2).Cells(1) '複製準則的欄位
For a = 2 To Sheets.Count - 1
Sheets(a).Range("A1").CurrentRegion.AdvancedFilter xlFilterCopy, Rng(1), Rng(2).Cells(1).Resize(1, Rng(1).Columns.Count)
Set Rng(2) = Rng(2).Cells(1).End(xlDown).Offset(1) '複製到目的範圍往下移動
If a <> Sheets.Count - 1 Then Rng(1).Rows(1).Copy Rng(2).Cells(1)
If Rng(3) Is Nothing Then '紀錄複製第2個工作表以後的複製到目的範圍欄位第一列位置
Set Rng(3) = Rng(2).Cells(1).Resize(1, Rng(1).Columns.Count)
Else
Set Rng(3) = Union(Rng(3), Rng(2).Cells(1).Resize(1, Rng(1).Columns.Count))
End If
Next
If Not Rng(3) Is Nothing Then Rng(3).Delete xlUp '刪除紀錄複製第2個工作表以後的複製到目的範圍欄位第一列位置
End Sub

複製代碼

靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。