返回列表 上一主題 發帖

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

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

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

2個欄位條件查詢.zip (9.65 KB)

本帖最後由 准提部林 於 2020-3-19 13:25 編輯

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

TOP

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

TOP

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

TOP

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

TOP

我按下執行鍵時,出現"執行階段錯誤'424'  此處需要物件"的訊息,我電腦excel版本是2016的。
謝謝!

TOP

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

TOP

隨意窩 "EXCEL迷"  blog  或 http://blog.xuite.net/hcm19522/twblog
已收集6200篇 EXCEL函數

TOP

回復 4# rouber590324


若回復內容有代碼或公式,
在確定回復前, 將 下方[禁用表情]取消打勾, 再重新打勾,
這樣即可避免部份文字被識別為表情符號
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

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

向右選擇性貼入公式, 再下拉
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

        靜思自在 : 要用心,不要操心、煩心。
返回列表 上一主題