Andy2483

¦^´_ 3# Qektyyrwp


    ÁÂÁ«e½úµoªí¦¹¥DÃD
«á¾ÇÂǦ¹©«½m²ßVBA¤èªk,¾Ç²ß¤è®×¦p¤U,½Ð«e½ú°Ñ¦Ò
°õ¦æ«e:

¤U¸ü (35.48 KB)

2024-1-11 09:24

°õ¦æµ²ªG:

¤U¸ü (35.58 KB)

2024-1-11 09:24

Option Explicit
Sub TEST()
Dim Brr, i&, j%, T$, SP
Brr = Range([A1], [A65536].End(3))
[A:A].Interior.ColorIndex = xlNone
T = "," & [A1] & ","
For i = 3 To UBound(Brr)
   SP = Split(Brr(i, 1) & ",", ",")
   For j = 0 To UBound(SP)
      If SP(j) = "" Or InStr(T, "," & Val(SP(j)) & ",") = 0 Then GoTo j01
      Cells(i, 1).Interior.ColorIndex = 38: Exit For
j01: Next
Next
End Sub

Andy2483

¦^´_ 5# Qektyyrwp


    Option Explicit
Sub TEST()
Dim Brr, i&, j%, T$, SP
Set Brr = Range([G1], [G65536].End(3))
Brr.Offset(4).Interior.ColorIndex = xlNone: Brr = Brr
T = "," & [F3] & ","
For i = 5 To UBound(Brr)
   SP = Split(Brr(i, 1) & ",", ",")
   For j = 0 To UBound(SP)
      If SP(j) = "" Or InStr(T, "," & Val(SP(j)) & ",") = 0 Then GoTo j01
      Cells(i, 1).Interior.ColorIndex = 38: Exit For
j01: Next
Next
End Sub

Andy2483

¦^´_ 7# Qektyyrwp
Cells(i, 1).EntireRow.¬O¾ã¦C
Rows(i)
Cells(i, 1).Resize( ,7).  A¨ìG