[µo°Ý] VBAµ{¦¡½X¼W¥[¿z¿ï±ø¥ó

b9208

¦U¦ì¥ý¶i
¦p¤Uµ{¦¡½X¡A¤µÀÀ¥[¤J¿z¿ï±ø¥ó¡A·íWÄæ«DªÅ¥Õ¤ÎAGÄæ­È = Y®É­pºâ²Î­p¡C
·q½Ð¥ý¶i­Ì«ü¾É¡AÀ³¦p¦ó­×§ïµ{¦¡½X¡C
«D±`·PÁÂ

With Sheets("WORK")
If .[W6].End(xlDown).Row = .Rows.Count Then MsgBox "µL¸ê®Æ": Exit Sub
For Each A In .Range(.[W6], .[W65536].End(xlUp)).SpecialCells(xlCellTypeConstants)
Ar = Split(A, "+")
   For Each C In Ar
      MyStr = C & "," & Left(A.Offset(, 3), 8) & "," & A.Offset(, 8)
      dic1(MyStr) = Split(MyStr, ",")
   Next
Next
End With

b9208

¦^´_ 2# GBKEE

Dear GBKEE
«D±`·PÁÂÀ°¦£»P¨ó§U
°õ¦æ«áOK
¤p­×­q¦p¤U¡Gyªº¦ì¸m¼W¥["  "
If A <> "" And .Cells(A.Row, "AG") = "y" Then

GBKEE

¦^´_ 1# b9208
¬O³o¼Ë¶Ü?

1. If A <> "" And .Cells(A.Row, "AG") = y Then

½Æ»s¥N½X