返回列表 上一主題 發帖

如何選取"尋找"結果整列資料

nmtaux

帖子
3 
主題
1 
精華
0 
積分
6 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
10 
性別
男 
註冊時間
2015-11-28 
最後登錄
2016-5-17 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2016-4-2 22:25 | 只看該作者

如何選取"尋找"結果整列資料

各位高手：
小弟網路上找很久，

一直都找不到excel可以選取"尋找"結果整列資料的方法，

請問各位大大有何高見嗎?
收藏 分享
so far so good

nmtaux

帖子
3 
主題
1 
精華
0 
積分
6 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
10 
性別
男 
註冊時間
2015-11-28 
最後登錄
2016-5-17 
4#
發表於 2016-4-3 10:02 | 只看該作者
感謝高手，小弟馬上去試試，跪謝！
so far so good

TOP

nmtaux

帖子
3 
主題
1 
精華
0 
積分
6 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
10 
性別
男 
註冊時間
2015-11-28 
最後登錄
2016-5-17 
3#
發表於 2016-4-3 10:00 | 只看該作者

VBA 以關鍵字搜尋刪除整列

各位高手，請問vba以關鍵字搜尋後刪除整列怎麼寫比較簡單？網路上寫得都很難，看不懂。
so far so good

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
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

試試:
  1. Sub nn()
  2.   With Range("a1:a500")
  3.     Set c = .Find(2, LookIn:=xlValues)
  4.     If Not c Is Nothing Then
  5.       firstAddress = c.Address
  6.       Do
  7.         c.EntireRow.Interior.ColorIndex = 8
  8.         Set c = .FindNext(c)
  9.       Loop While Not c Is Nothing And c.Address <> firstAddress
  10.     End If
  11.   End With
  12. End Sub
複製代碼

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
返回列表 上一主題