如何讓A、B二欄字串比對成功呢？ - Excel程式區

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

　暱稱: 阿軒

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2014-3-12 09:04 | 顯示全部帖子

回復 1# dechiuan999

因為VBA裡面的TRIM，似乎只會去消除頭尾的空白格，文字中間的空白格不理會。
而EXCEL函數裡的TRIM則可以處理這個問題。
所以你只要在二個TRIM的前面加個『APPLICATION.』，問題就解決了。

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 = Application.Trim(mRng.Value)
mStr2 = Application.Trim(mRng.Offset(, 1))
mRng.Offset(, 2) = IIf(StrComp(mStr1, mStr2, vbTextCompare) = 0, "TRUE", "FALSE")
Next
End With
End Sub

複製代碼

靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。