- ©«¤l
- 552
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 578
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-2-8
- ³Ì«áµn¿ý
- 2024-7-9
|
¦^´_ 1# Scott090
´M§ä<=¬YȤ£¤@©wn¥Î.Find¡A¤èªk¦³«Ü¦h¤U±»¡©ú«h¬O§Q¥ÎVBA¡AFindªº»¡©ú½d¨Òק諸µ¹§A°Ñ¦Ò- Public Sub Find_1()
- A = 5
- N = 1
- With Worksheets(1).Range("a1:a" & Cells(Rows.Count, "a").End(xlUp).Row)
- Set c = .Find("*", LookIn:=xlValues, SearchDirection:=2)
- If Not c Is Nothing Then
- firstAddress = c.Address
- Do
- If c <= A Then
- Cells(N, "D") = c.Value
- N = N + 1
- End If
- Set c = .FindNext(c)
- Loop While Not c Is Nothing And c.Address <> firstAddress
- End If
- End With
- End Sub
½Æ»s¥N½X |
|