Board logo

標題: 儲存格的文字明明一樣, 但比較不到是相同 [打印本頁]
作者: grostcar    時間: 2011-3-18 09:21     標題: 儲存格的文字明明一樣, 但比較不到是相同

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

我是用strcomp(a1,b1,vbTextCompare)這方法的
作者: hugh0620    時間: 2011-3-18 09:38

回復 1# grostcar


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

Trim(UCase(a.Cells(j, 1).Text))
已是這樣比較了.........
作者: hugh0620    時間: 2011-3-18 09:53

回復 3# grostcar

    我也有同樣的問題~ 試一下~  其他大大給我的解決方式~
    http://forum.twbts.com/thread-2827-1-1.html
作者: grostcar    時間: 2011-3-18 10:24

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

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



    [attach]5040[/attach]
作者: Hsieh    時間: 2011-3-18 10:48

回復 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    時間: 2011-3-18 11:08

本帖最後由 grostcar 於 2011-3-18 11:13 編輯
回復  grostcar

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



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

還有是,因為數據太多, 如果用for 會慢到hand機
作者: GBKEE    時間: 2011-3-18 11:37

本帖最後由 GBKEE 於 2011-3-18 11:39 編輯

回復 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
複製代碼




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)