Question

Excel vba中如何判断二个不同单元格，是否有同一特殊字符 1、K列至BN列(判

Excel vba中如何判断二个不同单元格，是否有同一特殊字符
1、K列至BN列(判断同列最后二个单元)
例:单元A=斗子∝甘牡毋
单元B=壮驯州邸牡壮母
它们都有相同内容“牡" 给这二个单元填充青色
如果都没有相同内容就不填充颜色

Answer 1

可以用下面的代码实现（假设要判断的两个单元格为A1和B1）：
Sub main()
Set a= Range("A1").MergeArea
Set b = Range("A1").MergeArea
If a.Address = b.Address Then
MsgBox "同一合并区域"
Else
MsgBox "不是同一合并区域"
End If
End Sub
这里用到的原理，是判断两个单元格合并区域的地址是否一致。

关于此例中用到的MergeArea的相关知识：
MERGEAREA：返回一个 Range对象，该对象代表包含指定单元格的合并区域。如果指定的单元格不在合并区域内，则该属性返回指定的单元格。只读。Variant 类型。
expression.MergeArea
expression 必需。该表达式返回“应用于”列表中的对象之一。
说明
MergeArea属性只应用于单个单元格区域。

本示例为包含单元格 A3 的合并区域赋值：
Set ma = Range("a3").MergeArea
If ma.Address = "$A$3" Then
MsgBox "not merged"
Else
ma.Cells(1, 1).Value = "42"
End If

追问

判断同列最后二个单元

如果二个单元都有相同字符就填充颜色