返回列表 上一主題 發帖

[發問] 如何讓A、B二欄字串比對成功呢？

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-3-11 21:34 | 只看該作者

[發問] 如何讓A、B二欄字串比對成功呢？

各位大大好：
test.rar (6.68 KB)
小弟有A、B二欄的文字字串，
也先利用 TRIM來取出字串比對，
但還是無法成功比對。不知應如何
可逹成比對文字呢？
語法如下：
Sub aa()   
    Dim mSht1 As Worksheet
    Dim mRng As Range, mRng1 As Range
    Dim mStr1$, mStr2$
   
    Set mSht1 = Worksheets(1)
    With mSht1
        Set mRng1 = .Range("a2", .Range("a" & .Rows.Count).End(xlUp))
        For Each mRng In mRng1
            mStr1 = Trim(mRng.Value)
            mStr2 = Trim(mRng.Offset(, 1))
            mRng.Offset(, 2) = IIf(StrComp(mStr1, mStr2, vbTextCompare) = 0, "TRUE", "FALSE")
        Next
    End With
End Sub


謝謝各位大大！
收藏 分享

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2024-8-23 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
2#
發表於 2014-3-12 09:04 | 只看該作者
回復 1# dechiuan999


因為VBA裡面的TRIM，似乎只會去消除頭尾的空白格，文字中間的空白格不理會。
而EXCEL函數裡的TRIM則可以處理這個問題。
所以你只要在二個TRIM的前面加個『APPLICATION.』，問題就解決了。
  1. Sub aa()
  2.     Dim mSht1 As Worksheet
  3.     Dim mRng As Range, mRng1 As Range
  4.     Dim mStr1$, mStr2$
  5.    
  6.     Set mSht1 = Worksheets(1)
  7.     With mSht1
  8.         Set mRng1 = .Range("a2", .Range("a" & .Rows.Count).End(xlUp))
  9.         For Each mRng In mRng1
  10.             mStr1 = Application.Trim(mRng.Value)
  11.             mStr2 = Application.Trim(mRng.Offset(, 1))
  12.             mRng.Offset(, 2) = IIf(StrComp(mStr1, mStr2, vbTextCompare) = 0, "TRUE", "FALSE")
  13.         Next
  14.     End With
  15. End Sub
複製代碼

TOP

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
3#
發表於 2014-3-12 13:29 | 只看該作者
回復 2# owen06


    謝謝大大如此詳細說明。
TRIM的用法，還有二種方式。
小弟原以為一般APPLICATION
在VBA是可省略。
今天才了解到有如此差異。

感恩大大！

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題