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

Àx¦s®æªº¤å¦r©ú©ú¤@¼Ë, ¦ý¤ñ¸û¤£¨ì¬O¬Û¦P

Àx¦s®æªº¤å¦r©ú©ú¤@¼Ë, ¦ý¤ñ¸û¤£¨ì¬O¬Û¦P

½Ð°ÝÀx¦s®æªº¤å¦r©ú©ú¤@¼Ë, ¦ý¤ñ¸û¤£¨ì¬O¬Û¦P

§Ú¬O¥Îstrcomp(a1,b1,vbTextCompare)³o¤èªkªº
s

¦^´_ 1# grostcar


     Àx¦s®æ¤å¦r¤@¼Ë~ ¦ý¬O¦³¥i¯à¬OÀx¦s®æ¦³¤@¨ÇÁôÂ꺦]¯À(³Ì±`¨£ªº¬O«á­±¦³ªÅ®æ)~
     ³y¦¨¨âªÌ¬Ý¦ü¤@¼Ë~ ±o¨ìªºµ²ªG«o¤£¤@¼Ë
   ¼Ó¥D~ ¥i¥H´£¥X¤@­Ó°ÝÃD½d¨Ò~ ª©¥D¤j¤j­Ì¤~¯à¤F¸Ñ¬O­þ­ÓÀô¸`¾É­P§Aªº°ÝÃD²£¥Í~
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

Trim(UCase(a.Cells(j, 1).Text))
¤w¬O³o¼Ë¤ñ¸û¤F.........
s

TOP

¦^´_ 3# grostcar

    §Ú¤]¦³¦P¼Ëªº°ÝÃD~ ¸Õ¤@¤U~  ¨ä¥L¤j¤jµ¹§Úªº¸Ñ¨M¤è¦¡~
    http://forum.twbts.com/thread-2827-1-1.html
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

½Ð°ÝÀx¦s®æªº¤å¦r©ú©ú¤@¼Ë, ¦ý¤ñ¸û¤£¨ì¬O¬Û¦P

§Ú¬O¥Îstrcomp(a1,b1,vbTextCompare)³o¤èªkªº
grostcar µoªí©ó 2011-3-18 09:21



    Book1.rar (10.27 KB)
s

TOP

¦^´_ 5# grostcar

´`Àô°ÝÃD
  1. Sub ex()
  2. Sheet3.Cells = ""
  3. For Each a In Sheet1.Range(Sheet1.[A1], Sheet1.[A1].End(xlDown))
  4.    For Each c In Sheet2.Range(Sheet2.[A1], Sheet2.[A1].End(xlDown))
  5.    If StrComp(CStr(a), CStr(c), vbTextCompare) = 0 Then
  6.       k = k + 1
  7.       a.EntireRow.Copy Sheet3.Cells(k, 1)
  8.    End If
  9.    Next
  10. Next
  11. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ grostcar ©ó 2011-3-18 11:13 ½s¿è
¦^´_  grostcar

´`Àô°ÝÃD
Hsieh µoªí©ó 2011-3-18 10:48



    ¤£¤Ó©ú¥Õ...¬O¤°»ò´`Àô°ÝÃD.???

ÁÙ¦³¬O,¦]¬°¼Æ¾Ú¤Ó¦h, ¦pªG¥Îfor ·|ºC¨ìhand¾÷
s

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-3-18 11:39 ½s¿è

¦^´_ 5# grostcar
´`Àô-> °j°é FOR ...     DO.... µ¥
¥t¤@ºØ¸Ñªk
  1. Sub Ex()
  2.     Dim Rng(1 To 2) As Range, E As Range
  3.     Set Rng(1) = ThisWorkbook.Sheets("Sheet3").[A1]
  4.     Rng(1).CurrentRegion.Clear
  5.     For Each E In Sheets("Sheet1").UsedRange
  6.         Set Rng(2) = Sheets("Sheet2").UsedRange.Find(E.Value, , , xlValue)
  7.         If Not Rng(2) Is Nothing Then
  8.             Rng(2).EntireRow.Copy Rng(1)
  9.             Set Rng(1) = Rng(1).Offset(1)
  10.             Set Rng(2) = Nothing
  11.         End If
  12.     Next
  13. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ÀR§¤±`®¦¤v¹L¡B¶¢½Í²ö½×¤H«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD