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

[µo°Ý] ¥Î Find §ä¤p©óµ¥©ó(<=)¬Y­È ªº Range

¦^´_ 1# Scott090


´M§ä<=¬Y­È¤£¤@©w­n¥Î.Find¡A¤èªk¦³«Ü¦h¤U­±»¡©ú«h¬O§Q¥ÎVBA¡AFindªº»¡©ú½d¨Ò­×§ïªºµ¹§A°Ñ¦Ò
  1. Public Sub Find_1()
  2. A = 5
  3. N = 1
  4. With Worksheets(1).Range("a1:a" & Cells(Rows.Count, "a").End(xlUp).Row)
  5.     Set c = .Find("*", LookIn:=xlValues, SearchDirection:=2)
  6.     If Not c Is Nothing Then
  7.         firstAddress = c.Address
  8.         Do
  9.             If c <= A Then
  10.                 Cells(N, "D") = c.Value
  11.                 N = N + 1
  12.             End If
  13.             Set c = .FindNext(c)
  14.         Loop While Not c Is Nothing And c.Address <> firstAddress
  15.     End If
  16. End With
  17. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD