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

grostcar

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

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

hugh0620

¦^´_ 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²£¥Í~

grostcar

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

hugh0620

¦^´_ 3# grostcar

    §Ú¤]¦³¦P¼Ëªº°ÝÃD~ ¸Õ¤@¤U~  ¨ä¥L¤j¤jµ¹§Úªº¸Ñ¨M¤è¦¡~
    http://forum.twbts.com/thread-2827-1-1.html

grostcar

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

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

    Book1.rar (10.27 KB)

¤U¸ü¦¸¼Æ: 11

2011-3-18 10:23

Hsieh

¦^´_ 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

grostcar

¦^´_  grostcar

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

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

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

GBKEE

¦^´_ 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