Excel에서 특정 값과 동일한 셀의 내용을 자동으로 변경하는 방법

현재 일련의 값에 해당하는 데이터 열 (숫자)을 사용하고 있는데 데이터 / 숫자를 올바른 해당 값으로 자동 대체하는 방법에 대해 궁금합니다. 도움을 주셔서 감사합니다.

시작 데이터

여기에 이미지 설명을 입력하십시오

최종 결과

여기에 이미지 설명을 입력하십시오

microsoft-excel microsoft-excel-2010

— 라크로스 1991
소스

얼마나 자동? 공식이나 VBA 솔루션을 원하십니까? J와 K가 전환되면 인접한 열 B에서 vlookup 함수를 사용할 수 있습니다. 그런 다음 결과를 A 또는 인덱스 함수에 붙여 넣습니다. 아니면 A에 숫자를 입력 할 때 자동으로 변경하는 방법을 찾고 있었습니까?

— datatoo

@datatoo 안녕하세요, 저는 A에서 숫자를 입력 할 때 자동으로 변경되는 방법을 찾고 있습니다

— lacrosse1991

따라서 A에 숫자를 입력하면 적절한 값을 찾아야합니다.

— datatoo

@datatoo yep 정확하게

— lacrosse1991

워크 시트 변경 이벤트에서 다음과 같은 작업을 수행 할 수 있습니다. 항목을 입력하는 열이 A이고 조회의 레이아웃이 예제에 따라 K & J에 있다고 가정합니다. 원하는대로 범위를 조정할 수 있습니다.

Private Sub Worksheet_Change(ByVal Target As Range)
  'should check you are doing entry in column A first
If Target.Column = 1 Then
 Application.EnableEvents = False
 Dim R1 As Range
 Dim R2 As Range
 Dim rngStart As Range
 Dim varFind As Variant
 Dim InRange As Boolean
   Set R1 = Range(Target.Address)
    Set R2 = Range("J:J")
      Set rngStart = Range("J1")

   If R2.Find(What:=Target, After:=rngStart, LookIn:=xlValues, LookAt:=xlWhole _
    , SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) Is Nothing Then

     Application.EnableEvents = True
        Set R1 = Nothing
        Set R2 = Nothing

     Exit Sub
   Else
    varFind = R2.Find(What:=Target, After:=rngStart, LookIn:=xlValues, LookAt:=xlWhole _
    , SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Address

      Set varFind = Range(varFind)
        R1.Value = varFind.Offset(0, -1)
   Application.EnableEvents = True
      Set R1 = Nothing
      Set R2 = Nothing
      Set rngStart = Nothing
      Set varFind = Nothing
   End If
  Else
    Exit Sub
 End If
End Sub

— datatoo
소스