- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 62
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2025-3-13
               
|
¦^´_ 9# tony0318 - Sub ex()
- [F34:F37] = ""
- For Each c In [E35:E37]
- For Each a In [G2:G32]
- k = InStr(a, c)
- If k > 0 Then c.Offset(, 1) = c.Offset(, 1) + Val(Mid(a, k + Len(c))) / IIf(c = "¯S¥ð", 60, 1): If c = "¿ð¨ì" Then [F34] = [F34] + 1
- Next
- Next
- End Sub
½Æ»s¥N½X |
|