- 帖子
- 835
- 主題
- 6
- 精華
- 0
- 積分
- 915
- 點名
- 0
- 作業系統
- Win 10,7
- 軟體版本
- 2019,2013,2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-3
- 最後登錄
- 2024-11-14
|
2#
發表於 2016-4-3 01:11
| 只看該作者
各位高手:
小弟網路上找很久,
一直都找不到excel可以選取"尋找"結果整列資料的方法,
請問各位大大 ...
nmtaux 發表於 2016-4-2 22:25 
試試:- Sub nn()
- With Range("a1:a500")
- Set c = .Find(2, LookIn:=xlValues)
- If Not c Is Nothing Then
- firstAddress = c.Address
- Do
- c.EntireRow.Interior.ColorIndex = 8
- Set c = .FindNext(c)
- Loop While Not c Is Nothing And c.Address <> firstAddress
- End If
- End With
- End Sub
複製代碼 |
|