2016-06-24 3 views
1

Excel에서보다 sepcific 문자가 그 가치의 다음 목록은 열에됩니다가 : 세포를 강조하는 방법을 여러 번

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 

감사 지브

답변

4

당신은 공식을 기반으로 조건부 서식을 사용할 수 있습니다, 그래서 len(a1)-substitute(a1,".","")>=2

+0

죄송합니다, 옆에있는 열에서 수식을 위로, 휴식 – Ziv

+0

내 끝을 didnt 일, 공식 등의 대체 비트를 넣어, 그리고 –

+0

@Ziv 결과 무엇을보고 아마도 필요에 따라 데이터에 적용하지 않았을 수 있습니다. 사용중인 정확한 수식을 복사/붙여 넣기하고 '조건부 서식 규칙 관리자'에서 '적용 대상'상자를 선택하십시오. OP에 표시되는 데이터 세트와 함께 여기에서 제대로 작동합니다. –

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