[µo°Ý] ¤G­ÓÄæ¦ì¸ê®Æ·j´M?

q1a2z5

½Ð°Ý¡G
¦b¥ªÃä¸ê®Æ°Ï¥u­n¦³²Å¦X¤Ø¤oÄæ©ÎªÌÃC¦âÄæ±ø¥óªÌ¡A³£¤@¤@¦C¥X¨Ó¡C
ÁÂÁ¡I

rouber590324

DEAR SIR
¦p¤U   

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

ÁÂÁÂ!¦ý¦n¹³¤£¯à°õ¦æ,§Ú¬O¤£¬O­þ¸Ì§Ë¿ù¤F.

rouber590324

§Ú©ó¤½¥q¹q¸£°õ¦æµL°ÝÃD
¦ý§Ú¤½¥q¹q¸£.µLªk¤W¶ÇÀɮפ©ºô¯¸.
§A»Ý¬Ý¤£¯à°õ¦æ¤§¿ù»~ÂI©ó¦ó³B.¤è¥i¬Ý¦p¦ó¸Ñ¨M(ª©¥»°ÝÃD OR......)

rouber590324

DEAR SIR
§ó¥¿¦p¤U

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

§Ú«ö¤U°õ¦æÁä®É¡A¥X²{＂°õ¦æ¶¥¬q¿ù»~'424'  ¦¹³B»Ý­nª«¥ó"ªº°T®§¡A§Ú¹q¸£excelª©¥»¬O¢±¢¯¢°¢µªº¡C
ÁÂÁ¡I

rouber590324

DEAR SIR
§ó¥¿¦p¤U

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

­ã´£³¡ªL

¦^´_ 4# rouber590324


­Y¦^´_¤º®e¦³¥N½X©Î¤½¦¡,
¦b½T©w¦^´_«e, ±N ¤U¤è[¸T¥Îªí±¡]¨ú®ø¥´¤Ä, ¦A­«·s¥´¤Ä,
³o¼Ë§Y¥iÁקK³¡¥÷¤å¦r³QÃѧO¬°ªí±¡²Å¸¹

­ã´£³¡ªL

J6/°}¦C¤½¦¡:
=IFERROR(INDEX(A:A,SMALL(IF(MMULT(COUNTIF($J$2:$M$2,$E$2:$F$11),{1;1}),ROW($2:$11)),ROW(A1))),"")

¦V¥k¿ï¾Ü©Ê¶K¤J¤½¦¡, ¦A¤U©Ô