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

·j´M ExcelÀɮסB¬¡·~ï¦hµ§ÃöÁä¦r¡A¦A¦hµ§"§¹¾ã"¦C¥X

·j´M ExcelÀɮסB¬¡·~ï¦hµ§ÃöÁä¦r¡A¦A¦hµ§"§¹¾ã"¦C¥X

Dear ¦U¦ì¤j¤j­Ì¦n¡A
¤pªºµê¤ß¨ü±Ð¨Ó¤F....«Ü©êºp¤£¤[«e¤~µo¤@½g ·j´M ¦hµ§ÃöÁä¦rªº©«¡C
²{¦b¦³·sªº·Qªk·Q½Ð±Ð¦U¦ì¤j¤j­Ì¡C
½Ð¤£§[«ü±Ð¡AÁÂÁ¡C

§ÚÁ|¤@½d¨Ò¡A¥H¤U¬O¬Y¬¡·~諸sheet1!

id name address car age keywords
1 ³¯«a§Æ ²üÄõ y 29unknow;star
2 ¤jÀY¤ý ¤ë²y y 35big;head
3 ªdÄϤý Àã¦a n 5 water;¥Íª«
4 ¤õ¶³¨¸¯« ¤õ¬P y100 movie;¥\¤Ò


°²³]§Ú¶}¥t¥~¤@ÀɮסA©Î¬O¦P¤@¬¡­¶Ã¯ªºªºsheet2!

¦bÄæ¦ì(A1) ¿é¤J "²üÄõ"¡A´N·|¶}©l·j´M¤W­zªí®æ¡C
©ó(B1) ¶}©l¦C¥Xªí®æ1ªº¾ã¦C§¹¾ã¸ê®Æ

¦bÄæ¦ì(A2)¿é¤J "¥Íª«"¡A´N·|¶}©l·j´M¤W­zªí®æ¡C
©ó(B2) ¶}©l¦C¥Xªí®æ1ªº¾ã¦C§¹¾ã¸ê®Æ

§Æ±æ¯à§â·j´MªºÃöÁä¦r¥[¤JÃC¦â¡C

µ²ªG½d¨Ò¦p¤U:
²üÄõ1 ³¯«a§Æ ²üÄõ y 29 unknow;star
¥Íª« 3ªdÄϤý Àã¦an 5 water;¥Íª«



¨Ì¦¹Ãþ±Àªº¦hÃöÁä¦r·j´M¡A¨Ã¥B¦C¥X§¹¾ã¸ê®Æ¡C
§Æ±æ¦U¦ì¤j¤j¨ó§U¡A·P¿E¸U¤À~!!

ÁÂÁ¦U¦ì¤j¤j~

¦^´_ 5# Hsieh


    ¤£¦n·N«äª©¥D¤j¤j,§Ú¥¿¦b´M§ä¦³Ãöfindªº¸ê®Æ,¦³©¯¨Ó¨ì³o­Ó¾Â¦ý¬Oª`¥U¤F¥¼¯à¤U¸üªþ¥ó,¤£ª¾ª©¥D¤j¤j¥i¤£¥i¥HEµ¹§Ú©O??:P
[email protected]

TOP

¦^´_ 13# Hsieh

·PÁÂHsiehª©¥D
µ{¦¡¥i¥H¥¿±`¨Ï¥Î¤F

¥Ø«eÁÙ¦b´ú¸Õ¤¤¡A­Y¦³¨ä¥L°ÝÃD¦A¦^³øµ¹±z

TOP

  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Dim A As Range, Rng As Range
  3. If Target.Column = 1 Then
  4. With Sheets("ºî¦X¸ê®Æ®w")
  5. For i = 1 To .UsedRange.Rows.Count
  6.    Set A = .UsedRange.Rows(i).Find(Target)
  7.    If Not A Is Nothing Then
  8.      If Rng Is Nothing Then
  9.      Set Rng = .UsedRange.Rows(i)
  10.      Else
  11.      Set Rng = Union(Rng, .UsedRange.Rows(i))
  12.      End If
  13.     End If
  14. Next
  15. End With
  16. End If
  17. Application.EnableEvents = False
  18. If Not Rng Is Nothing Then Rng.Copy Target.Offset(, 1) Else Target.Offset(, 1).Resize(, 50) = ""
  19. Application.EnableEvents = True
  20. End Sub
½Æ»s¥N½X
¦^´_ 12# jackson7015
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 5# Hsieh
·Q½Ð°ÝHsiehª©¤j

§Ú¨Ï¥Î¦b§Úªº¸ê®Æ®w«á,·|¥X²{°»´ú¿ù»~
¥BÀx¦s®æªº®æ¦¡¤Æ±ø¥ó¤]¦³¿ù»~
¦Ó¦b§R°£¬d¸ß¸ê®Æ®É,·|¥X²{¥¨¶°µ{¦¡¿ù»~

¬O§_¦³­þ¸Ì»Ý­n°µ§ó¥¿
¬d¸ßºî¦X¸ê®Æ®w.rar (20.22 KB)

TOP

¦^´_ 9# mchan2k
¦^´_ 10# ericsm77

1.¶i¶¥¿z¿ï¬O§â©Ò¦³²Å¦X¿z¿ï±ø¥óªº¬ö¿ý³£¿z¿ï¥X¨Ó
2.VBA¨Ï¥ÎFIND«ü¥O,¤]¥i§â©Ò¦³²Å¦X±ø¥óªº³£§ä¥X¨Ó

TOP

¦^´_ 5# Hsieh

·Q½Ð°Ý ¨º¦pªG¤µ¤Ñ¦³¨â­ÓµÛ²üÄõªº¤H®É ·|¥X²{­þ¤@­Ó

TOP

§Ú·Q°Ý¡A¦pªG¦bc6 ¤]¥X²{²üÄõ³o­Ó¦r
µ²ªG·|¬O«ç¼Ë??

TOP

¦^´_ 6# Hsieh
«D±`¦n¥Îªºµ{¦¡½X
¤U¸ü¦¬¶°
ÁÂÁ ª©¥D
100 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 6# Hsieh


   
ÁÂÁª©¥D¡A¶i¶¥¿z¿ï¯uªº«Ü¤è«K!

TOP

        ÀR«ä¦Û¦b : ­ì½Ì§O¤H´N¬Oµ½«Ý¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD