Excel - 두 목록을 비교하고 행 색상을 변경합니다.

발행물

두 개의 다른 통합 문서가 있습니다. 통합 문서 1과 통합 문서 2를 가정 해 봅시다. 두 통합 문서에는 바코드가있는 열이 있습니다.

통합 문서에서 두 개의 바코드 열을 확인하고 새로운 통합 문서를 만들고 통합 문서 1의 전체 행을 복사하고 통합 문서 2에서 동일한 바코드 색상을 사용하는 VBA가 필요한 경우 VBA가 필요합니다.

해결책

바코드 열이 시트 1과 시트 2 모두 같다고 가정합니다.

이 코드를 시도해보십시오.

처음에는 코드를 실행할 때 코드가 바코드의 열 문자에 대한 입력을 요청합니다. 예를 들어 G를 입력하고 확인을 클릭하십시오 (오른쪽 상단에 있음).

매크로는

 Sub test () Dim col as String, r As 범위, c As 범위, cfind As 범위 Dim x, y As Integer col = 입력 상자 ( "바코드가 예를 들어 G로 네 터리 된 열 LETTER를 입력하십시오") On Error Resume Next Worksheet ( "sheet2")를 사용하여 r = Range (.Cells (2, col), .Cells (2, col) .End (xlDown))를 설정하십시오. rx = c.Value with Worksheets ( "sheet1"). cfind = .CellIndex cfind.EntireRow.Copy with Worksheets (cfind.ColorIndex) : cfind = .Cells.Find (what : = x, lookat : = xlWhole) "Sheet3") .Cells (행 수, "A"). 끝 (xlUp) .Offset (1, 0) .PasteSpecial .Cells (행 수, 열). 끝 (xlUp) .Interior.ColorIndex = y 끝 nnext로 끝남 : 다음 c End With End Sub