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

½Ð¨D¤ä´©-¦r¦ê§PÂ_,­«·s±Æ¦C

½Ð¨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¤Ñ

·Q­n§Q¥Î§PÂ_¦¡,Åܦ¨¹Ï¤ù³o¼Ë­n«ç»ò°µ¤ñ¸û¦n
¦]¬°¦³´X¤dµ§¤â°Ê¤ÓÃø¤F
½T©wªº¬O,abc¬O©T©w·|¥X²{
ÁÙ¦³­n§ì¨ú¤¸¤§«eªº¼Æ¦r¨ìabc¤§¦ê¤§«á,²Ä¤@­Ó¤¸¬°b,²Ä¤G­Ó¤¸¬°c
001.jpg

¦³·Q¹L¥Î¿ý¥¨¶°ªº¤è¦¡,¦ý³£·|¥X²{¿ù»~,©Î¬O»~§R

¦^´_ 1# simontasi
§Ñ¤F»¡©ú,®É¶¡¸ò³æ¯Â¼Æ¦rªºÀx¦s®æ»Ý­n§R°£

TOP

B1¸òC1¬°¤°»ò¤£¬O11¸ò22©O?

TOP

http://blog.xuite.net/hcm19522/twblog/427715445

TOP

¦^´_ 1# simontasi
¸g¾ã²z«á¸ê®Æ¶×¥XB:DÄæ¡C
  1. Sub test()
  2.     Dim arr, brr()
  3.     With ActiveSheet
  4.         .Cells.Replace ChrB(160), ""
  5.         er = .[A65536].End(3).Row
  6.         arr = .Range("A1:A" & er)
  7.         .[B1:D65536].ClearContents
  8.     End With
  9.     n = -1
  10.     For i = 1 To UBound(arr)
  11.         If InStr(arr(i, 1), "abc") <> 0 Then
  12.             n = n + 1
  13.             ReDim Preserve brr(2, n)
  14.             brr(0, n) = arr(i, 1)
  15.             c = 1
  16.         Else
  17.             If Right(arr(i, 1), 1) = "¤¸" Then
  18.                 brr(c, n) = Val(arr(i, 1))
  19.                 c = c + 1
  20.             End If
  21.         End If
  22.     Next i
  23.     ActiveSheet.[B1].Resize(n + 1, 3) = Application.Transpose(brr)
  24. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# chengchi1223
©êºp¥´¿ù¤F,¬O11 22¨S¿ù

TOP

        ÀR«ä¦Û¦b : §Ú­Ì­n°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD