If nJs1 = nJs2 and nJs1 = nJs3 and nJs1 = nJs4 and nJs1 = nJs5 and nJs1 = nJs6 Then
这里没有单元格地址，也就是你要给哪个单元格填充颜色 .Interior.Color = 255: 这里也没有单元格地址 .Offset(0, 1).Value = "是"
这是数学表达式，不是 VB 表达式！
试试看这样改：
If (nJs1 = nJs2) And (nJs1 = nJs3) And (nJs1 = nJs4) And (nJs1 = nJs5) And (nJs1 = nJs6) Then
……
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024