以下是 VBA 代码,它可以比较两个文本字符串并返回相同或不同的部分:
Sub CompareText()
Dim str1 As String, str2 As String
Dim result As String
str1 = "文本1"
str2 = "文本2"
For i = 1 To Len(str1)
If Mid(str1, i, 1) = Mid(str2, i, 1) Then
result = result & Mid(str1, i, 1)
El