- ©«¤l
- 522
- ¥DÃD
- 36
- ºëµØ
- 1
- ¿n¤À
- 603
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp sp3
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-12-13
- ³Ì«áµn¿ý
- 2021-7-11
|
¸Õ¸Õ¬Ý:- Sub test()
- [B:B] = ""
- For i = 1 To [A65536].End(xlUp).Row
- For j = 1 To [C1].End(xlDown).Row
- c = InStr(Cells(i, 1), Cells(j, 3))
- If c > 0 Then
- Cells(i, 2) = Cells(j, 3)
- End If
- Next
- Next
- End Sub
½Æ»s¥N½X |
|