- ©«¤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-6-15
![2016µU¦~¥þ¶Ô¼ú³¹ 2016µU¦~¥þ¶Ô¼ú³¹](images/common/hou.gif) ![2015¦Ï¦~¥þ¶Ô¼ú³¹ 2015¦Ï¦~¥þ¶Ô¼ú³¹](images/common/yang.gif) ![¼ö¯P°Ñ»P¾±³¹ ¼ö¯P°Ñ»P¾±³¹](images/common/medal7.gif)
|
¦^´_ 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 |
|