½Ð¨D¤ä´©-¦r¦ê§PÂ_,«·s±Æ¦C
- ©«¤l
- 10
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 11
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp
- ³nÅ骩¥»
- sp3
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2016-6-27
- ³Ì«áµn¿ý
- 2016-11-24
|
½Ð¨D¤ä´©-¦r¦ê§PÂ_,«·s±Æ¦C
½Ð±ÐÓ¦ì¤j¤j,¦pªGaÄ椤¦³¥H¤U³o¨Ç¸ê®Æ
abc¡Chello123
11 ¤¸
22 ¤¸
29 ¤Ñ 21 ¤p®É
aabc,defg
33 ¤¸
44 ¤¸
21 ¤p®É20¤À
abcfffg
55 ¤¸
1
66¤¸
bbabcff
77 ¤¸
3
77 ¤¸
10¤Ñ
·Qn§Q¥Î§PÂ_¦¡,Åܦ¨¹Ï¤ù³o¼Ën«ç»ò°µ¤ñ¸û¦n
¦]¬°¦³´X¤dµ§¤â°Ê¤ÓÃø¤F
½T©wªº¬O,abc¬O©T©w·|¥X²{
ÁÙ¦³n§ì¨ú¤¸¤§«eªº¼Æ¦r¨ìabc¤§¦ê¤§«á,²Ä¤@Ó¤¸¬°b,²Ä¤GÓ¤¸¬°c
¦³·Q¹L¥Î¿ý¥¨¶°ªº¤è¦¡,¦ý³£·|¥X²{¿ù»~,©Î¬O»~§R |
|
|
|
|
|
|
- ©«¤l
- 10
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 11
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp
- ³nÅ骩¥»
- sp3
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2016-6-27
- ³Ì«áµn¿ý
- 2016-11-24
|
¦^´_ 1# simontasi
§Ñ¤F»¡©ú,®É¶¡¸ò³æ¯Â¼Æ¦rªºÀx¦s®æ»Ýn§R°£ |
|
|
|
|
|
|
- ©«¤l
- 4
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 18
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE2010
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2016-6-28
- ³Ì«áµn¿ý
- 2016-8-11
|
B1¸òC1¬°¤°»ò¤£¬O11¸ò22©O? |
|
|
|
|
|
|
- ©«¤l
- 1387
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 1397
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-9-11
- ³Ì«áµn¿ý
- 2024-11-22
|
http://blog.xuite.net/hcm19522/twblog/427715445 |
|
|
|
|
|
|
- ©«¤l
- 163
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 170
- ÂI¦W
- 0
- §@·~¨t²Î
- Window 7
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-9-5
- ³Ì«áµn¿ý
- 2022-7-20
|
¦^´_ 1# simontasi
¸g¾ã²z«á¸ê®Æ¶×¥XB:DÄæ¡C- Sub test()
- Dim arr, brr()
- With ActiveSheet
- .Cells.Replace ChrB(160), ""
- er = .[A65536].End(3).Row
- arr = .Range("A1:A" & er)
- .[B1:D65536].ClearContents
- End With
- n = -1
- For i = 1 To UBound(arr)
- If InStr(arr(i, 1), "abc") <> 0 Then
- n = n + 1
- ReDim Preserve brr(2, n)
- brr(0, n) = arr(i, 1)
- c = 1
- Else
- If Right(arr(i, 1), 1) = "¤¸" Then
- brr(c, n) = Val(arr(i, 1))
- c = c + 1
- End If
- End If
- Next i
- ActiveSheet.[B1].Resize(n + 1, 3) = Application.Transpose(brr)
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 10
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 11
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp
- ³nÅ骩¥»
- sp3
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2016-6-27
- ³Ì«áµn¿ý
- 2016-11-24
|
¦^´_ 3# chengchi1223
©êºp¥´¿ù¤F,¬O11 22¨S¿ù |
|
|
|
|
|
|