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

[µo°Ý] ¸ê®Æ°ÝÃD

[µo°Ý] ¸ê®Æ°ÝÃD

Dear ±z¦n¡G

Dear:

¦]¬°¦b¸ê®Æ³B¸Ì¤W¤£ª¾¦p¦ó§Ö³t³B²z¡A¬O§_¥i¥H¼g¦¨¤½¦¡¤§Ãþªº¡A·Q½Ð°Ý¤j®a¡C

ÃD¥Ø¦p¤U

A1('123'=) ('125'=) ( '126'=) ('128'=) ('12'=) ( '17'=) ('13'=) ('19'=) ( '6'=)
A2('23'=) ('25'=) ( '26'=) ('28'=) ('2'=) ( '7'=) ('13'=) ('9'=) ( '6'=)
A3('13'=) ('15'=) ( '16'=) ('18'=) ('12'=) ( '17'=) ('13'=) ('19'=) ( '6'=)
A4('1'=) ('15'=) ( '120'=) ('122'=) ('129'=) ( '7'=) ('3'=) ('9'=) ( '6'=)

·QÅܦ¨

A1('123'=123) ('125'=125) ( '126'=126) ('128'=128) ('12'=12') ( '17'=17) ('13'=13) ('19'=19) ( '6'=6)
A2('23'=23) ('25'=25) ( '26'=26) ('28'=28) ('2'=2') ( '7'=7) ('13'=13) ('9'=9) ( '6'=6)
A3('13'=13) ('15'=15) ( '16'=16) ('18'=18) ('12'=12) ( '17'=17) ('13'=13) ('19'=19) ( '6'=6)
A4('1'=1) ('15'=15) ( '120'=120) ('122'=122) ('129'=129) ( '7'=7) ('3'=3) ('9'=9) ( '6'=6)

¦]¬°¸ê®Æ«Ü¦h¡A©Ò¥H·Q¼g¤½¦¡§@¨ú¥N¡A´N¬O¦b­ì¸ê®Æ¬A¸¹¤ºªºµ¥©ó«á­±¥[¤W¸ò«e­±¤@¼Ëªº¼Æ¦r¡A·Q»¡¥Î¸U¥Î¦r¤¸·j´M('*'=*),¦ý³o¼Ë¦ü¥G¤£¦æ¡A·Q½Ð±Ð¦U¦ì¡A¬O§_¦³§Ö³tªº¤èªk©O¡A¦]¬°¸ê®Æ¤Ó¦h­¶¤F

¦A³Â·Ð¸Ñµª

ÁÂÁ±z

¦^´_ 1# jj369963
¦³¨S¦³§Ö³t¤èªk?­Ë¬OÁÙ¨S·Q¥X¨Ó
¥Î¤½¦¡ÁÙ¦³ÂI½ÆÂø
1¡B¿ï¨úB1Àx¦s®æ
2¡B«Ø¥ß4­Ó¦WºÙ
      k=(COLUMN(Sheet1!A$1)-1)*2+1
      x=(LEN(Sheet1!$A1)-LEN(SUBSTITUTE(Sheet1!$A1,"'","")))/2
      y=MID(Sheet1!$A1,SMALL(ar,k)+1,SMALL(ar,k+1)-SMALL(ar,k)-1)
      ar=SMALL(IF(MID(Sheet1!$A1,ROW(INDIRECT("A1:A"&LEN(Sheet1!$A1))),1)="'",ROW(INDIRECT("A1:A"&LEN(Sheet1!$A1))),""),ROW(INDIRECT("A1:A"&x*2)))
3¡BB1¤½¦¡="('"&y&"'="&y&") "
¦V¤U¦V¥k½Æ»s¨ìJ4
4¡BK1¤½¦¡=B1&C1&D1&E1&F1&G1&H1&I1&J1
¦V¤U½Æ»s
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ chin15 ©ó 2012-3-25 23:40 ½s¿è

¬Û·í¦³Ãø«×¡AÁÙ¬O¼gvba§Ö§a¡C
  1. Sub test()
  2.     Cells.Replace " '", "'"
  3.     For Each a In [a:a].SpecialCells(2)
  4.         x = Split(a & " ", "(")
  5.         For i = 1 To UBound(x)
  6.             m = Val(Mid(x(i), 2))
  7.             x(i) = "(" & Left(x(i), Len(x(i)) - 2) & m & Right(x(i), 2)
  8.         Next
  9.         a(1, 2) = Join(x)
  10.     Next
  11. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# chin15


    ¨S¦³¥Î¹LVBA¡A¦ý¬O¸ÕµÛ¥Î¤j¤j´£¨Ñªºµ{¦¡¡AªGµM¦¨¥\¡A¯u¬O¤Ó¯«©_¤F¡A·|¦A¶i­×VBAªº³¡¥÷¡A¨Ó¥[±j¦Û¤v¡C

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD