jcchiang

¦^´_ 1# BV7BW

¸Õ¸Õ¬Ý
  Sub ex()
Dim arr As Variant, a As Object, X%
Set arr = Sheets("¤u§@ªí3").Range(Sheets("¤u§@ªí3").[F2], Sheets("¤u§@ªí3").[d2].End(4))
With Sheets("¤u§@ªí2")
   For Each a In .Range(.[a4], .[a4].End(4))
      For X = 1 To arr.Rows.Count
         If a = Int(Replace(arr(X, 1), "A", "") - 100) Then
            a.Offset(, 1).Resize(, 3) = Application.Transpose(Application.Transpose(arr(X, 1).Resize(, 3)))
            Exit For
         End If
      Next
   Next
End With
End Sub

jcchiang

¦^´_ 7# BV7BW

­ìµ{¦¡´ú¸Õ®É¨ÃµL·í¾÷°Ý¾÷,©Ò¥H¤£¤F¸Ñ§A©Ò»¡·|·í¾÷¬O¤°»ò°ÝÃD
¥u¬O­ìµ{¦¡¤£ª¾¹D§PÂ_±ø¥ó¬O¥HSheets("¤u§@ªí2").[C2]¬°¥D
­×§ï«áµ{¦¡¦p¤U
  Sub ex()
Dim X$, a As Variant, c As Variant
Set c = Nothing
Sheets("¤u§@ªí2").Range([b4], [b4].End(4).Resize(, 3)).ClearContents
X = Sheets("¤u§@ªí2").[C2]
For Each a In Sheets("¤u§@ªí3").Range([¤u§@ªí3!D2], [¤u§@ªí3!D2].End(4))
   If a = X Or a.Offset(, 1) Like "*" & X & "*" Or a.Offset(, 2) = X Then  '§PÂ_¬O§_¦³²Å¦X±ø¥ó
      If c Is Nothing Then
         Set c = a.Resize(, 3)
      Else
         Set c = Union(c, a.Resize(, 3))
      End If
   End If
Next
c.Copy Sheets("¤u§@ªí2").[b4].Resize(, 3)
End Sub

jcchiang

¦^´_ 20# BV7BW
1.ÃöÁä¦r¬d¸ß¨Ã¨S¦³´£¨ì½s¸¹¥u·|¿é¤J"A",©Ò¥H¶µ½s¬O¥H¥þ¬Û²Å¤ñ¹ï
   ½Ð±NIf a = X Or a.Offset(, 1) Like "*" & X & "*" Or a.Offset(, 2) = X Then
   §ï¬° If Join(Application.Transpose(Application.Transpose(a.Resize(, 3))), "") Like "*" & X & "*" Then  '§âSheets(3) D~FÄæ¦r¦ê¦X¨Ö°µ¼Ò½k¤ñ¹ï
2.Sheets("¤u§@ªí2").Range([b4], [b4].End(4).Resize(, 3)).ClearContents '²M°£¸ê®Æ
¬O¨Ì©Ò´£¨Ñªº¸ê®Æ¥h¼gªº,¦pªG¹ê»Ú¤u§@ªí¦³¤£¤@¼Ë½Ð¦Û¦æ­×§ï
3.¤u§@ªí3¤¤"A""B""C"Äæ¬O­ì´£¨Ñ¸ê®Æ´N¦³ªº,µ{¦¡¤¤¨ÃµL¨Ï¥Î

jcchiang

¦^´_ 23# BV7BW

¥i¥H¦h¥[¤@­Ó§PÂ_,·íC¦³¸ê®Æ¤~¥h°õ¦æ¸ê®Æ¼g¤J
If Not c Is Nothing Then c.Copy Sheets("¤u§@ªí2").[B4].Resize(, 3)