- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-11-25 08:31 ½s¿è
¦^´_ 7# register313
¥t¤@¼gªk- Sub Ex()
- Dim AR, R As Range, S , E
- Range("E2:E500").ClearContents
- AR = Split(Mid(Replace([E1], "¤§»sµ{", ""), 2), "¡B")
- For Each R In Range("A2:A500")
- S = Split(R & "¡A" & R.Offset(0, 1), "¡A")
- For Each E In S
- If Not IsError(Application.Match(E, AR, 0)) Then
- R.Offset(0, 4) = R.Offset(0, 4) & IIf(R.Offset(0, 4) = "", "", "+") & E
- End If
- Next
- Next
- End Sub
½Æ»s¥N½X |
|