엑셀 : 스프레드 시트 데이터 입력 자동화

Question

현재 수백 개의 항목이 포함되어 있고 프로세스를 자동화하려는 스프레드 시트에 대해 일부 데이터 입력을하고 있습니다. 원하는 작업에 대한 좋은 아이디어가 있지만 Excel 또는 VBA.

그 이유는 내가 한 열에 코드가 있고 다음 열에 이전 열의 값에 고유 한 코드가 있다는 것입니다. "ABC"입니다 옆에, 열을 (123)를 포함하는 모든 셀 그래서

: 예를 제공합니다.

필자가 원하는 솔루션의 종류는 각 셀 (또는 그 효과가있는 값)의 값을 저장 한 다음 저장된 값과 일치하는 값을 확인하기 위해 작업하는 열 A의 방향으로 작동하는 매크로입니다 하나. 일치하는 것이 발견되면 매크로는 저장된 셀 옆에있는 셀 B 열의 코드를 복사하여 B 열의 셀에 복사합니다.

예 :

이 저장됩니다 "123"A의 값은 다른 세포가 "123"을 일치 발견하면 그들에 "ABC"를 복사 찾기 위해 열 A를 그것의 방법을 작동 일치 항목 옆의 열 B 셀 스프레드 시트가 많은 시간에 지금까지 걸리는 날 및 수동 입력에 의해 성장으로이 이해하기 누군가가 해결책을 오는 나를 도울 수 쉽게

희망은, 쉽게 작정이 모든 과정을 만들 것

Answer 1

이 매크로를 사용해보십시오.

Sub FillInTheBlanks() 
    Dim rA As Range 
    Dim rB As Range 
    Dim r As Range, rr As Range 
    Dim N As Long 
    Dim va As Variant 
    N = Cells(Rows.Count, "A").End(xlUp).Row 
    Set rA = Range("A1:A" & N) 
    Set rB = rA.Offset(0, 1).Cells.SpecialCells(xlCellTypeBlanks) 
    If rB Is Nothing Then Exit Sub 
    For Each r In rB 
     va = r.Offset(0, -1).Value 
     For Each rr In rA 
      If rr.Value = va And rr.Offset(0, 1) <> "" Then 
       r.Value = rr.Offset(0, 1).Value 
      End If 
     Next rr 
    Next r 
End Sub