- 帖子
- 522
- 主題
- 36
- 精華
- 1
- 積分
- 603
- 點名
- 0
- 作業系統
- win xp sp3
- 軟體版本
- Office 2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-12-13
- 最後登錄
- 2021-7-11
|
3#
發表於 2015-11-24 11:12
| 只看該作者
試試看:- 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
複製代碼 |
|