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

[µo°Ý] ·j´M«ü©w¦r¦ê¨Ã¥H¨ä¥L¤å¦r¨ú¥N

[µo°Ý] ·j´M«ü©w¦r¦ê¨Ã¥H¨ä¥L¤å¦r¨ú¥N

½Ð°Ý¬O§_¥i¥H·j´M«ü©w¦r¦ê¨Ã¥H¨ä¥L¤å¦r¨ú¥N~~

¦b A ¤u§@ªí ¶ñ¤J·j´M¦r¦ê ¥H¤Î ±ý¨ú¥N¦r¦ê ¥h­×§ï B ¤u§@ªí¤ºªº¸ê®Æ
2012-01-03_192321.jpg

B ¤u§@ªí ­×§ï«e


B ¤u§@ªí ­×§ï«á


ªþ¥ó
QQ1.rar (1.82 KB)

·PÁÂ~~

¦^´_ 1# marklos

1.»²§UÄæ
  I1=SUBSTITUTE(E1,A!$B$2,A!$B$4)
2.VBA

TOP

¯à§_¥J²Ó»¡©ú~~·PÁÂ!

TOP

¦^´_ 3# marklos

1.»²§UÄæ
  I1=SUBSTITUTE(E1,A!$B$2,A!$B$4)  ©¹¤U½Æ»s
§A¤w¸g¦bEÄæ¿é¤J¼Æ­È(·j´M¦r¦ê)   ©Ò¥H¤£¥i¯à¦P®É¦bEÄæ¿é¤J¤½¦¡¨ÓÀò±o¨ú¥N¦r¦ê
¬G¥t¦bIÄæ«Ø¥ß ¤½¦¡¨ÓÀò±o¨ú¥N¦r¦ê

2.VBA
ª½±µ§âEÄ檺·j´M¦r¦ê¥Î¨ú¥N¦r¦ê¨Ó¨ú¥N
  1. Sub aa()
  2.   For A = 1 To Sheet2.Range("E65535").End(xlUp).Row
  3.     Cells(A, 5) = WorksheetFunction.Substitute(Cells(A, 5), Sheet1.[B2], Sheet1.[B4])
  4.   Next
  5. End Sub
½Æ»s¥N½X

TOP

½Ð°Ý¬°¬Æ»ò¥u¯à¨Ï¥Î¤@¦¸ , ¦A¦¸­×§ï«oµLªk¨Ï¥Î?

TOP

¦^´_ 5# marklos


    ¤£·|§a
   ªþ¤WÀɮפ~¯à¯u¥¿ª¾¹D°ÝÃD

TOP

­ì¥»ªº°ÝÃD¤w¸Ñ¨M~~
¦ý¬O¦pªG¤£¬O¥u¦³"E"Äæ­n¨ú¥N , ¦Ó¬Oµ¥­Ó"B"¤u§@ªí, ¥u­n²Å¦X¸ê®ÆªÌ´N­n¥Î·s¸ê®Æ¨ú¥N , ¨º­n¦p¦ó­×§ï?
ÁÂÁÂ!!!

TOP

¥»©«³Ì«á¥Ñ register313 ©ó 2012-1-6 14:40 ½s¿è

¦^´_ 7# marklos
  1. Sub aa()
  2.   For Each a In Sheet2.UsedRange
  3.      a.Value = WorksheetFunction.Substitute(a, Sheet1.[B2], Sheet1.[B4])
  4.   Next
  5. End Sub
½Æ»s¥N½X
QQ1.rar (7 KB)

TOP

½ÐÀ°¦£¦b½T»{¤@¤U...
»Ý­n§¹¥þ²Å¦X¸ê®ÆªÌ¤~­n¥Î·s¸ê®Æ¨ú¥N~~
¦pªþ¥ó¨Ò¤l , ­n±NB¤u§@ªí¤¤©Ò¦³§¹¥þ²Å¦X"10"ªº¦r¦ê³£¸m´«¦¨"9999"
¦]¬°­ì¥»ªº¥¨¶°«ü¥O·|±NGÄæ¦ìªº"10010"¤]­×§ï¬°"999909999"
·PÁÂ!

QQ2.rar (5.58 KB)

TOP

¦^´_ 9# marklos
  1. Sub Ex()
  2.   Sheets("B").Cells.Replace Sheets("A").[B2], Sheets("A").[B4], xlWhole
  3. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD