´M§ä¤å¦rªºÀx¦s®æ¦ì¸m

enoch

½Ð°Ý¦b«ü©w½d³ò¤º, ¦pA1-D5,  ¦p¦ó§ä¥X¦³Ãö¤å¦r (¦p: TEXT) ªºÀx¦s®æ¦ì¸m

¥t¥~, ­YªGrow ¬OÅܼÆ, ½d³ò¬ODÄæ-HÄæ ,
range(cells(row,4),cells(row1,8))
¤@©w­n¥Î¼Æ¦r4¥NªíD, 8¥NªíH¶Ü?
¦³¨ä¥L¤èªkªí¥Ü½d³ò¶Ü?  

½Ð«ü±Ð

register313

¦^´_ 1# enoch
1.§â§ä¨ìªºÀx¦s®æ¦ì§}¸m©ó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

½Æ»s¥N½X

2.     range(cells(row,4),cells(row1,8))
µ¥¦P range(cells(row,"D"),cells(row1,"H"))

oobird

Sub yy()
[d:h].Replace "txt", "=1/0"
[d:h].SpecialCells(xlCellTypeFormulas, 16).Select
ad = Selection.Address
Selection = "txt"
MsgBox ad
End Sub

enoch

½Ð°Ý­YªG·QÀˬd½d³ò1-20¦æ, ·í¥þ¦æªÅ¥Õ¨S¦³¸ê®Æ, ´N±N¸Ó¦æ§R°£
À³¸Ó¦p¦ó©O, ½Ð¦A«ü±Ð

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

½Æ»s¥N½X