­ã´£³¡ªL

Sub ¤wú()
Dim xF As Range,  M
If [A2] = "" Then MsgBox "¾Ç¸¹¥¼¿é¤J ": Exit Sub
If [B2] = "" Then MsgBox "ú¶O¤ë¥÷¥¼¿é¤J ": Exit Sub
Set xF = [¤u§@ªí2!A:A].Find([A2], Lookat:=xlWhole)
If xF Is Nothing Then MsgBox "¾Ç¸¹¤£¦s¦b ": Exit Sub
For Each M In Split([B2], ",")
¡@¡@If Val(M) < 1 Or Val(M) > 12 Then MsgBox "ú¶O¤ë¥÷¿ù»~ ": Exit Sub
Next
For Each M In Split([B2], ",")
¡@¡@If IsNumeric(M) Then xF(1, M + 2) = "¤wú"
Next
MsgBox "¡ã¡ã¤w³B²z¡ã¡ã"
End Sub