register313

回復 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"))

register313

回復 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

複製代碼