[發問] 二個欄位資料搜尋?

q1a2z5

請問：
在左邊資料區只要有符合尺寸欄或者顏色欄條件者，都一一列出來。
謝謝！

rouber590324

DEAR SIR
如下   

Sub AAA()
Sheet1.[J6:P65536].ClearContents
X = Sheet1.[A65536].End(xlUp).Row
Y = Sheet1.[J65536].End(xlUp).Row
For M = 2 To X
If Sheet1.Cells(M, 5) = Sheet1.Cells(2, 10) Or Sheet1.Cells(M, 5) = Sheet1.Cells(2, 11) Or Sheet1.Cells(M, 6) = Sheet1.Cells(2, 12) Or Sheet1.Cells(M, 6) = Sheet1.Cells(2, 13) Then
  Sheet1.Cells(Y + 1, 10).Resize(, 7).Value = Sheet1.Cells(M, 1).Resize(, 7).Value
    Y = Y + 1
  End If
  Next
End Sub

q1a2z5

謝謝!但好像不能執行,我是不是哪裡弄錯了.

rouber590324

我於公司電腦執行無問題
但我公司電腦.無法上傳檔案予網站.
你需看不能執行之錯誤點於何處.方可看如何解決(版本問題 OR......)

rouber590324

DEAR SIR
更正如下

Sub AAA()
Sheet1.[J665536].ClearContents
X = Sheet1.[A65536].End(xlUp).Row
Y = Sheet1.[J65536].End(xlUp).Row
For M = 2 To X
If Sheet1.Cells(M, 5) = Sheet1.Cells(2, 10) Or Sheet1.Cells(M, 5) = Sheet1.Cells(2, 11) Or Sheet1.Cells(M, 6) = Sheet1.Cells(2, 12) Or Sheet1.Cells(M, 6) = Sheet1.Cells(2, 13) Then
   Sheet1.Cells(Y + 1, 10).Resize(, 7).Value = Sheet1.Cells(M, 1).Resize(, 7).Value
     Y = Y + 1
   End If
   Next
End Sub

q1a2z5

我按下執行鍵時，出現＂執行階段錯誤'424'  此處需要物件"的訊息，我電腦excel版本是２０１６的。
謝謝！

rouber590324

DEAR SIR
更正如下

Sub AAA()
Sheet1.[J665536].ClearContents
X = Sheet1.[A65536].End(xlUp).Row
Y = Sheet1.[J65536].End(xlUp).Row
For M = 2 To X
If Sheet1.Cells(M, 5) = Sheet1.Cells(2, 10) Or Sheet1.Cells(M, 5) = Sheet1.Cells(2, 11) Or Sheet1.Cells(M, 6) = Sheet1.Cells(2, 12) Or Sheet1.Cells(M, 6) = Sheet1.Cells(2, 13) Then
    Sheet1.Cells(Y + 1, 10).Resize(, 7).Value = Sheet1.Cells(M, 1).Resize(, 7).Value
      Y = Y + 1
    End If
    Next
End Sub

hcm19522

https://blog.xuite.net/hcm19522/twblog/588987680

准提部林

回復 4# rouber590324


若回復內容有代碼或公式,
在確定回復前, 將 下方[禁用表情]取消打勾, 再重新打勾,
這樣即可避免部份文字被識別為表情符號

准提部林

J6/陣列公式:
=IFERROR(INDEX(A:A,SMALL(IF(MMULT(COUNTIF($J$2:$M$2,$E$2:$F$11),{1;1}),ROW($2:$11)),ROW(A1))),"")

向右選擇性貼入公式, 再下拉