2015-01-29 2 views
0

값 비교에서 셀을 검색하는 방법이 있습니까? 설명해 드리죠 :특정 텍스트 문자열로 끝나는 값을 가진 모든 셀 검색

  • AS12G
  • A25LM
  • T5S0O
  • NBTLM
  • 을 :

    내가 "코드"와 멀티 셀 범위에 포함 된 다음 값라는 세포 열이 말할 수 있습니다

  • 55EW0
  • EVOLM
  • EXCLM
  • VBT7S
  • T82LM

가 어떻게 'LM'에 결국 세포를 검색 할 수 있습니다? I의 값을 포착 할 수 있도록

는 : A25LM, NBTLM, EVOLM, EXCLM, T82LM을

여기
+0

"LM"은 항상 마지막 두 문자입니까? 그렇다면 각 셀을 반복하면서 마지막 두 문자를 평가하고 배열에 유효 히트를위한 셀 주소를 저장합니까? –

+0

예, LM은 항상 마지막 두 문자를 나타냅니다. 그러나 루핑보다 빨리 수행 할 수있는 방법이 있다면 아마 Excel 기능 일 것입니다. – Mayhem

답변

2

캡처 된리스트는 나중에 사용하기 위해 저장 될 수있다

Sub LM_Getter() 
    Dim N As Long, i As Long, mesage As String, kolumn As Long 

    kolumn = 3 'column C 
    mesage = "" 
    N = Cells(Rows.Count, kolumn).End(xlUp).Row 

    For i = 1 To N 
     t = Cells(i, kolumn).Text 
     If Right(t, 2) = "LM" Then 
      mesage = mesage & "," & t 
     End If 
    Next i 
    If mesage <> "" Then 
     mesage = Mid(mesage, 2) 
    End If 
    MsgBox mesage 
End Sub 

C 열 위한 예시이며 .

+0

나는 조건과 일치하는 모든 셀이 연결된 텍스트로 저장된다는 것을 알고 있지만 그게 무엇입니까? – Mayhem

+1

@ Mahemhem ............. * mesage *가 비어 있지 않으면, 코드는 선행 쉼표를 제거합니다. –

0

VBA 코드가 게시되지 않았으므로 원하는 솔루션이 셀 수식 기반이라고 가정합니다. 여기 그것이 무엇이 될 수 있습니다. 데이터가 "A : A"열에 있고, "A1"에서 시작한다고 가정합니다. 이 수식을 "B1": =IF(RIGHT(A1,2)="LM",A1,"")에 입력하고 복사합니다.

관련 문제