나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내
작성자:  

 제임스본드 (bond)

추천:  2
파일:     문자열비교하기.xls (34.5KB) 조회:  1619
제목:   [RE]중복 데이터 찾기 질문입니다
     
  어제 질문을 올렸는데 답변대로 해도 잘 안되더군요 그래서 다시 한번 올려봅니다.

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

 
[불량 게시물 신고]  
        
  

작성일 : 2003-09-09(14:41)
최종수정일 : 2003-09-09(14:41)
 


 ◎ 관련글

  제 목   작성자   날짜
중복 데이터 찾기 질문입니다 임현수 2003-09-09
[RE]중복 데이터 찾기 질문입니다 제임스본드 2003-09-09