vba特殊多重篩選

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2016-5-8 08:50 | 只看該作者

有幾個篩選資料的問題，我一直想不出解決的方法，想麻煩大家集思廣益幫我想想該怎麼做。
資料大概有幾萬筆，我要將其中滿足下列四個條件(四條件全都符合)的每一組(每一組都有4筆資料)資料都挑選出來放在另一張工作表。四條件如下:

變數代號:
code=資料編碼,
t0=日期編碼(1~1065),
T=到期日編碼(1~121),
cp=選擇權型態(C=1,P=2),
K=履約價格,
prem=權利金

我有自己試著使用autofilter來解決條件一和條件二，但仍遇到困難。程式碼如下:

Sub morecriteriafilter()
Dim i As Integer, j As Integer
With Worksheets("be")
For i = 0 To 1063
For j = 0 To 130
If .FilterMode = True Then .ShowAllData
.Range("A1").AutoFilter Field:=2, Criteria1:="<" & 3 + i, Operator:=xlAnd, Criteria2:=">" & 0 + i
.Range("A1").AutoFilter Field:=3, Criteria1:="=" & 1
.Range("A1").AutoFilter Field:=5, Criteria1:=Cells(j + 2, 10)
.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy Worksheets("Sheet2").Range("B2").Offset(7 * i, 7 * j)
Next j
Next i
End With
End Sub

複製代碼

困難一: 沒有解決條件三和條件四!!!
困難二: 可能是使用for…next的關係，處理速度很慢，i=0 to 100左右就會當機在那裡，可是我的資料量很大(i=0 to 1065)

想不出解決的方法QAQ，尤其是條件三和條件四，請高手指點一二。

靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。