標題: 尋找文字的儲存格位置 [打印本頁]

---

作者: enoch    時間: 2012-5-23 11:38     標題: 尋找文字的儲存格位置

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

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

請指教

---

作者: register313    時間: 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"))

---

作者: oobird    時間: 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

---

作者: enoch    時間: 2012-5-26 12:36

請問若果想檢查範圍1-20行, 當全行空白沒有資料, 就將該行刪除
應該如何呢, 請再指教

---

作者: register313    時間: 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

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)