儲存格的文字明明一樣, 但比較不到是相同

grostcar

請問儲存格的文字明明一樣, 但比較不到是相同

我是用strcomp(a1,b1,vbTextCompare)這方法的

hugh0620

回復 1# grostcar


     儲存格文字一樣~ 但是有可能是儲存格有一些隱藏的因素(最常見的是後面有空格)~
     造成兩者看似一樣~ 得到的結果卻不一樣
   樓主~ 可以提出一個問題範例~ 版主大大們才能了解是哪個環節導致你的問題產生~

grostcar

Trim(UCase(a.Cells(j, 1).Text))
已是這樣比較了.........

hugh0620

回復 3# grostcar

    我也有同樣的問題~ 試一下~  其他大大給我的解決方式~
    http://forum.twbts.com/thread-2827-1-1.html

grostcar

請問儲存格的文字明明一樣, 但比較不到是相同

我是用strcomp(a1,b1,vbTextCompare)這方法的
grostcar 發表於 2011-3-18 09:21

    Book1.rar (10.27 KB)

下載次數: 11

2011-3-18 10:23

Hsieh

回復 5# grostcar

循環問題

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

複製代碼

grostcar

回復  grostcar

循環問題
Hsieh 發表於 2011-3-18 10:48

    不太明白...是什麼循環問題.???

還有是,因為數據太多, 如果用for 會慢到hand機

GBKEE

回復 5# grostcar
循環-> 迴圈 FOR ...     DO.... 等
另一種解法

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

複製代碼