帖子: 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欄

Sub FIND()
C = 1
Set Rng = [A1:D5].FIND("TEXT", , , xlWhole)
If Not Rng Is Nothing Then
findrow = Rng.Address
Do
Cells(C, "F") = Rng.Address
C = C + 1
Set Rng = [A1:D5].FindNext(Rng)
Loop While Not Rng Is Nothing And Rng.Address <> findrow
End If
End Sub

複製代碼

2. range(cells(row,4),cells(row1,8))
等同 range(cells(row,"D"),cells(row1,"H"))

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 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

中學生 Rank: 2

帖子: 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

Sub xx()
For R = 20 To 1 Step -1
If Application.CountA(Rows(R)) = 0 Then Rows(R).Delete
Next R
End Sub

複製代碼

TOP