返回列表 上一主題 發帖

尋找文字的儲存格位置

enoch

帖子
176 
主題
98 
精華
0 
積分
279 
點名
0  
作業系統
window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-17 
最後登錄
2020-4-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-5-23 11:38 | 只看該作者

尋找文字的儲存格位置

請問在指定範圍內, 如A1-D5,  如何找出有關文字 (如: TEXT) 的儲存格位置

另外, 若果row 是變數, 範圍是D欄-H欄 ,
range(cells(row,4),cells(row1,8))
一定要用數字4代表D, 8代表H嗎?
有其他方法表示範圍嗎?  

請指教
收藏 分享

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-5-23 12:38 | 只看該作者
回復 1# enoch
1.把找到的儲存格位址置於F欄
  1. Sub FIND()
  2.   C = 1
  3.   Set Rng = [A1:D5].FIND("TEXT", , , xlWhole)
  4.   If Not Rng Is Nothing Then
  5.      findrow = Rng.Address
  6.      Do
  7.        Cells(C, "F") = Rng.Address
  8.        C = C + 1
  9.        Set Rng = [A1:D5].FindNext(Rng)
  10.      Loop While Not Rng Is Nothing And Rng.Address <> findrow
  11.   End If
  12. End Sub
複製代碼
2.     range(cells(row,4),cells(row1,8))
等同 range(cells(row,"D"),cells(row1,"H"))

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
3#
發表於 2012-5-23 13:39 | 只看該作者
Sub yy()
[d:h].Replace "txt", "=1/0"
[d:h].SpecialCells(xlCellTypeFormulas, 16).Select
ad = Selection.Address
Selection = "txt"
MsgBox ad
End Sub

TOP

enoch

帖子
176 
主題
98 
精華
0 
積分
279 
點名
0  
作業系統
window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-17 
最後登錄
2020-4-8 
4#
發表於 2012-5-26 12:36 | 只看該作者
請問若果想檢查範圍1-20行, 當全行空白沒有資料, 就將該行刪除
應該如何呢, 請再指教

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
5#
發表於 2012-5-26 13:00 | 只看該作者
回復 4# enoch
  1. Sub xx()
  2. For R = 20 To 1 Step -1
  3.   If Application.CountA(Rows(R)) = 0 Then Rows(R).Delete
  4. Next R
  5. End Sub
複製代碼

TOP

        靜思自在 : 我們最大的敵人不是別人．可能是自己。
返回列表 上一主題