|
어제 질문을 올렸는데 답변대로 해도 잘 안되더군요 그래서 다시 한번 올려봅니다.
1. 엑셀로 작성된 데이터 시트에서 똑같은 값이 들어있는지 확인하는 방법.
- a열의 1~10000행 중에서 중복된 값이 20번항과 800번 항이라서 문제가 있다.
이런식으로 정리를 해야되는데 비슷한 데이터가 워낙 많다 보니 자동정렬로 해봐야
잘 눈에 들어오지 않습니다.
2. 이번에는 데이터가 똑같은지 확인하는것입니다.
- a열과 b열의 데이터가 완전히 똑같은지 확인하는 방법 (exact 함수 말고여)
다소 우울하다고는 하지만 그래도 추석연휴가 다가왔습니다.
직딩들 지친 몸과 맘을 고향에서라도 다 풀고 왔으면 좋겠습니다.
==============[임현수님 글에 대한 답변입니다]==============
이렇게 하면 정확히 어디가 틀렸는지까지... 알 수 있습니다.
비슷비슷하면 알기가 어렵거든요.
틀린 부분의 글자를 색을 바꿔주니 편하겠죠
첨부화일에 자세한 설명 있습니다.
Sub compare()
Dim c As Range
Dim i As Integer
Dim intColnum As Integer
Dim rngx As Range
Set rngx = Selection
intcolumn = Application.InputBox("선택영역으로 부터 거리 [숫자,좌측은 -숫자] 선택하세요", Type:=1)
If intcolumn = 0 Then Exit Sub
For Each c In rngx
For i = 1 To 50
If Mid(c, i, 1) <> Mid(c.Offset(0, intcolumn), i, 1) Then
With c
.Characters(i, 1).Font.ColorIndex = 5
.Characters(i, 1).Font.Bold = True
End With
With c.Offset(0, intcolumn)
.Characters(i, 1).Font.ColorIndex = 5
.Characters(i, 1).Font.Bold = True
End With
End If
Next i
Next c
End Sub
|
|