在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
由于 谢夫
答案 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