안녕하세요.
2개의 시트에 변경된 사항을 확인하고 싶습니다.
아래와 같이 A시트에서 B시트로 변경된 사항을 B시트에 표기하고자 하면 어떻게 해야 할까요?
아래는 간략하게 만들어 놓은 것이고 실제로는 100개 넘는 업체에 품목도 더 많습니다.
| A시트 | B시트 | |||||||||
| 업체명 | 치약 | 칫솔 | 비누 | 샴푸 | 업체명 | 치약 | 칫솔 | 비누 | 샴푸 | |
| 한국 | 3 | 2 | 4 | 1 | 한국 | 3 | 2 | 4 | 5 | |
| 미국 | 2 | 6 | 8 | 2 | 영국 | 3 | 6 | 1 | 2 | |
| 중국 | 4 | 3 | 5 | 5 | 일본 | 4 | 3 | 5 | 5 | |
| 중국 | 3 | 2 | 4 | 1 | ||||||
| 미국 | 2 | 6 | 8 | 2 |
도와주세요.ㅠㅠ

답변 감사드립니다. 그런데 제가 하기에 너무 어렵네요. 파일 올려드릴테니 다시 좀 부탁드립니다.ㅠㅠ
방법1) 변경 전(A시트)-> 변경 후(B시트) 형식으로 표시하기
방법2) 최종 변경된 값(B시트)만 표시하기
답변감사드립니다. 그런데 너무 어렵네요. 파일 올려드릴테니 다시 부탁드립니다.ㅠㅠ
수식보다는
vba매크로'를 사용하는 방법이
괜찮아 보입니다
*시트명(Sheet1)과
*범위는 변경
Sub Macro1() Dim Asht As Worksheet Dim lR_B&, lR_H&, bRw&, hRw As Long Dim rngB As Range, rngH As Range, BrngRw As Range, HrngRw As Range Dim Cn As Integer Dim isFind As Boolean Application.ScreenUpdating = False Set Asht = ThisWorkbook.Sheets("Sheet1") lR_B = Asht.Cells(Asht.Rows.Count, "B").End(xlUp).Row lR_H = Asht.Cells(Asht.Rows.Count, "H").End(xlUp).Row For hRw = 4 To lR_H Set rngH = Asht.Cells(hRw, "H") Set HrngRw = Asht.Range("I" & hRw & ":L" & hRw) isFind = False For bRw = 4 To lR_B Set rngB = Asht.Cells(bRw, "B") If rngB.Value = rngH.Value Then isFind = True Set BrngRw = Asht.Range("C" & bRw & ":F" & bRw) For Cn = 1 To 4 If BrngRw.Cells(1, Cn).Value <> HrngRw.Cells(1, Cn).Value Then HrngRw.Cells(1, Cn).Font.Color = RGB(0, 0, 255) HrngRw.Cells(1, Cn).Font.Bold = True End If Next Cn End If Next bRw If Not isFind Then HrngRw.Font.Color = RGB(0, 0, 255) HrngRw.Font.Bold = True End If Next hRw End Sub
답변 감사드려요. 제 지식이 짧아서 너무 어렵네요.ㅠㅠ