工作

EXCEL相同日期之資料篩選 - 工作

Cara avatarCara · 2010-07-09

Table of Contents

大家好目前有我3000多筆資料要選篩，也太多變數眼睛我確實看了二變數後，我發現花太多時間，也可能會有沒挑到的我自己有試著爬文及尋找知識，問題還是沒解決例如試算表中ABCDEF2008/12/11023.22008/12/11152008/12/12002008/12/31052.322008/12/2116.22008/12/35002008/12/41058.622008/12/31132008/12/5400想在GHIJ篩選得到三變數"相同日期"的資料GHIJ2008/12/11023.21152002008/12/31052.32113500先謝謝大家^^
工作

All Comments

John avatarJohn2010-07-09
假設第一列為標題列,資料列郵遞2列開始往下放.先定義名稱-----方便說明AB2欄之資料名稱為data1CD2欄之資料名稱為data2EF2欄之資料名稱為data3GHIJ欄放找出之資料(由第2列開始放)VBA巨集如下SubMacro1()Application.ScreenUpdating=FalseSettmp=Range("a2").CurrentRegionr_no=tmp.Rows.CountColumns("K:K").Select'增加輔助欄Selection.InsertShift:=xlToRightForm=2Tor_noSheets("Sheet1").Cells(m,11).Value="=COUNTIF(C[-8],RC[-10])+COUNTIF(C[-6],RC[-10])"Nextn=1Fori=1Tor_noIfSheets("Sheet1").Cells(i+1,11).Val
Mary avatarMary2010-07-09
指數變數1.指數變數2.指數變數3.2008/12/11023.22008/12/11152008/12/1200想要三個指數變數，有同樣日期的資料，都是可以同時抓取下來若三變數，有一個日期比如(變數2)有缺少，那就剔除不要
Michael avatarMichael2010-07-12
VBA語法試試看。Subtest()Worksheets.Addsh=ActiveSheet.NameWithSheets("Sheet1")r=.[A65536].End(3).Row.Range("A1:B"&r).CopySheets(sh).Cells(Sheets(sh).[A65536].End(3).Row+1,1).Range("C1:D"&r).CopySheets(sh).Cells(Sheets(sh).[A65536].End(3).Row+1,1).Range("E1:F"&r).CopySheets(sh).Cells(Sheets(sh).[A65536].End(3).Row+1,1)EndWithWithSheets(sh)r=.[A65536].End(3).Rowv=1:c=8.Range("A2:B"&r).Sortkey1:=.[A2]Fori=2TorIf.Cells(i,1)=.Cells(i+1,1)Thenck="Y"Sheets("Sheet1").Cells(v,7)=.Cells(i,1)Sheets("Sheet1").Cells(v,c)=.
Skylar Davis avatarSkylar Davis2010-07-10
不懂你可謂三變數可以再詳述嗎