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

[µo°Ý] ¤å¦rÀɤÀ³Î

[µo°Ý] ¤å¦rÀɤÀ³Î

½Ð°Ý¦p¦ó±NMyString¦r¦êŪ¨ú«á¡A¨Ì·ÓspaceªÅ®æ¬°¤À³ÎÂI¦s©óAs°}¦C¤¤¡A§Æ±æ»Pvbaµ{¦¡Keyinªº­È¤ñ¹ï¡A¦pªG¦³²Å¦X´N±N°}¦Cªº­È¦s»PÀx¦s®æ¤¤¡A½Ð°ª¤â±Ð¾É ~·P®¦~

compare.rar (5.59 KB)

¦^´_ 1# hsiaohsien
¨Ì·ÓspaceªÅ®æ¬°¤À³ÎÂI¦s©óAs°}¦C¤¤¡A³o¥y¬ÝªºÀ´
§Æ±æ»Pvbaµ{¦¡Keyinªº­È¤ñ¹ï                  ³o¥y´N¬Ý¤£À´  

TOP

G¤j¥»¨Ó·Qªk¬Oexcel¯à§_¸õ¥X¿é¤J¤è¶ô¥´¤J§Ú·Q¬d¸ßªº¦r¦ê¨Ò¦pip¡A§Úı±o³o°µªk¤]¤Ó³Â·Ð¡A©Ò¥H³o³¡¥÷§Ú¥i¥H¥Î½s¿è->´M§ä->´M§ä¥Ø¼Ð¨ú¥N¡A¦ý°ß¤@¬ü¤¤¤£¨¬ªº¬O­n´M§ä¥u¯à¿é¤J¤@µ§¸ê°T¡A¦]¬°­n¤ñ¹ïªº¦W³æÁÙ¤£¤Ö¡A³v¤@¤ñ¹ï¦³ÂI³Â·Ð´N¬O¤F

TOP

¨ºAs°}¦C¤¤ªº­È¥i§_»Psheets2¤¤ªºA1¡BB1¡BC1¡BD1.....¥ô¤@¦r¦ê¤ñ¹ï¡A¦pªG¦³²Å¦X±ø¥ó«h¸ÓMyStringÅܼơA´N©ñ©ósheets1¤¤ªºA1¡BA2¡BA3....¤¤¡A¤§«e»y·N¤£©ú¡A¹ê¦b©êºp¡A¦]¤å¦rÀÉÀɮ׫D±`¤j¡A¦æ¼Æ¤]¤£¤Ö¡A·Q±q¤¤¿z¿ï¥X§Ú­nªºµ²ªG¡A¦s©ñ©óexcelÀx¦s®æ¤¤¡A³o¼Ë°O¾ÐÅé·|«Ü¯Ó¸ê·½¶Ü??Å¥»¡Perl¤~¬O®Ä¯à¦nªº»y¨¥¡A¦ý¥¦«D±`Ãø¾Ç~~

TOP

¦^´_ 4# hsiaohsien
¨ºAs°}¦C¤¤ªº­È¥i§_»Psheets2¤¤ªºA1¡BB1¡BC1¡BD1.....¥ô¤@¦r¦ê¤ñ¹ï¡A¦pªG¦³²Å¦X±ø¥ó«h¸ÓMyStringÅܼơA´N©ñ©ósheets1¤¤ªºA1¡BA2¡BA3....¤¤
¥i¤W¶Ç½d¨Ò°Q½×

TOP

½ÐG¤j¬Ý¬Ý³o½d¨ÒÀɮסA¤ºªþ»¡©ú

TOP

½ÐG¤j¬Ý¬Ý³o½d¨ÒÀɮסA¤ºªþ»¡©ú compare.rar (6.97 KB)

TOP

¦^´_ 7# hsiaohsien
¦¹¨Ò§Ú·Q¿z¿ï³øªí¤¤§â²Å¦X±ø¥óªº¬D¿ï«á¦C©ósheet1¤¤
¨S¬Ý¨ì:   ¬D¿ï«á¦C©ósheet1ªº½d¨Ò¸ê®Æ

TOP

¦^´_ 7# hsiaohsien
  1. Sub ex()
  2. Dim ar()
  3. fs = ThisWorkbook.Path & "\FWlog.txt"
  4. Open fs For Input As #1
  5. Do While Not EOF(1)
  6.     Line Input #1, TextLine
  7.     For Each a In Sheet2.[A1:A4]
  8.       If InStr(TextLine, a) > 0 Then
  9.       ReDim Preserve ar(s)
  10.       ar(s) = TextLine
  11.       s = s + 1
  12.       End If
  13.     Next
  14. Loop
  15. Close #1
  16. For i = 0 To UBound(ar)
  17. Sheet1.Cells(i + 1, 1) = ar(i)
  18. Next
  19. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD