ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó¥Îvbaªº¨ç¼Æ·j´MexcelÄ椺ªº¸ê®Æ¡H

[µo°Ý] ¦p¦ó¥Îvbaªº¨ç¼Æ·j´MexcelÄ椺ªº¸ê®Æ¡H

(1)§Úªºªí®æ¤º¦³4­Ó§ø¤W
§Ú·Q¨Ì§Ç §ä¨ì¥¦­Ì ¨Ã¦^¶Ç¥¦­Ìªº¦ì¸m¡C¸Ó«çºN°µ©O¡H
(2)§Ú¬O¨Ï¥Î  WorksheetFunction.Match¨ç¼Æ
     ¤£·Q¥Î i=i+1¶]°j°é
ÁÂÁ«ü±Ð

°Ý°ÝÃD.rar (7.29 KB)

¦^´_ 1# ji12345678
  1. Sub nn()
  2. Dim A As Range
  3. Columns("C:C").Replace "§ø¤W", "=1/0"
  4. Set A = Columns("C:C").SpecialCells(xlCellTypeFormulas, 16)
  5. A.Value = "§ø¤W"
  6. MsgBox A.Address
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 1# ji12345678
­×§ï§Aªºµ{¦¡½X
  1. Option Explicit
  2. Sub Ex()
  3.     Dim myRng1 As Range, myRng2 As Range, myRow   As Variant
  4.     Set myRng1 = Columns("C")                            '·j´M¨Ó·½½d³ò
  5.     Do
  6.         myRow = Application.Match("§ø¤W", myRng1, 0)      '·j´M¨ì¶Ç¦^¼Æ¦r §ä¤£¨ì¶Ç¦^¿ù»~­È
  7.         If IsError(myRow) Then
  8.             MsgBox "¨S¦³§ä¨ì²Å¦X±ø¥óªºÀx¦s®æ"
  9.         Else
  10.             Set myRng2 = myRng1.Cells(myRow)
  11.             Set myRng1 = Range(myRng2.Offset(1), Cells(Rows.Count, "C"))                 '·j´M¨Ó·½½d³ò
  12.             MsgBox myRng2.Address
  13.         End If
  14.     Loop Until IsError(myRow)  '°õ¦æ°j°é, ª½¨ì¦³¿ù»~­È: Â÷¶}°j°é
  15. End Sub
½Æ»s¥N½X

TOP

¤Ó¼F®`¤F¡Aı±o¦Û¤wÁÙ­n¾Ç²ßªºÁ٫ܦh¡K
ÁÂÁÂÀ°¦£~

TOP

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD