在Excel中:如何突出显示具有多个特定字符的单元格

时间:2016-06-24 10:24:18

标签: excel vba excel-vba

在excel中,以下值列表位于A列

research.med.helsinki.fi
fixus.fi
fixusnet.fi
toolpack.fi
porinteatteri.fi
lippu.fi
ensemble.fi
autoarvio.fi
ratti.autoarvio.fi
adwords.google.com
fram.fi
edriver.fram.fi
alajarvi.perussuomalaiset.fi
per.us.su.omalaiset.fi

我在A列中有更多类似的值

我希望突出显示所有具有点字符(。)的值不止一次,它可以是vba宏或公式

运行宏/公式后,应突出显示以下值:

research.med.helsinki.fi
ratti.autoarvio.fi
adwords.google.com
edriver.fram.fi
alajarvi.perussuomalaiset.fi
per.us.su.omalaiset.fi

由于 谢夫

2 个答案:

答案 0 :(得分:4)

您可以使用基于公式的条件格式,因此len(a1)-substitute(a1,".","")>=2

答案 1 :(得分:0)

假设您的数据以单元格A2

开头

运行以下代码。它将突出显示包含多于1个点的数据(在A列中)。

Sub highlight()
    Dim lastrow As Long, i As Long
    lastrow = Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To lastrow
        If (Len(Range("A" & i).Value) - Len(WorksheetFunction.Substitute(Range("A" & i).Value, ".", "")) > 1) Then
            Range("A" & i).Interior.ColorIndex = 4
        End If
    Next i
End Sub

enter image description here