안녕하세요 고수님들,
주소 데이터가 5~6천개씩 됐을때 중복 값의 이름과 주소를
바로 윗행 내용과 동일하게 바꾸고 싶은데 수식을 모르겠습니다.
제미나이도 속시원한 답을 못주네요 ㅠㅠ
파일 첨부하오니 고수님들의 조언 부탁드립니다.
커뮤니티 전체
주소 중복행 문의
ifir**** Lv.3
📅 2026년 03월 18일 11:13
👁 조회 274
댓글을 작성하려면 로그인이 필요합니다.
게시글 목록
페이지 1 / 976게시글 제목
날짜
조회
추천
10시간 전
조회 38
0
답글 1
14시간 전
조회 84
0
답글 2
15시간 전
조회 73
0
답글 6
해결
16시간 전
조회 34
0
답글 0
2일 전
조회 182
0
답글 8
해결
엑셀 자동화서식만들기
[1]
[1]
3일 전
조회 125
0
답글 1
3일 전
조회 109
0
답글 1
4일 전
조회 146
0
답글 1
4일 전
조회 196
0
답글 3
해결
5일 전
조회 164
0
답글 2
해결
5일 전
조회 164
0
답글 2
요일색칠
[2]
[2]
6일 전
조회 179
0
답글 2
2026.04.07
조회 531
0
답글 5
해결
2026.04.04
조회 238
0
답글 0
2026.04.03
조회 224
0
답글 1
2026.04.02
조회 219
0
답글 0
2026.04.01
조회 285
0
답글 1
오답체크를 위한 조건부 서식
[5]
[5]
2026.04.01
조회 302
0
답글 5
2026.04.01
조회 215
0
답글 0
2026.04.01
조회 273
0
답글 3
E2=IF($C2="중복", E1, A2)
감사합니다~❤️💕👍
vba매크로
Sub Macro1()
Dim Asht As Worksheet
Dim lR&, Rw As Long
Dim xIdx As Integer
Dim sName$, sAdrs$, eCut$, cCut As String
Application.ScreenUpdating = False
Set Asht = ThisWorkbook.ActiveSheet
lR = Asht.Cells(Asht.Rows.Count, "B").End(xlUp).Row
Asht.Range("E1").Value = "이름"
Asht.Range("F1").Value = "주소"
For Rw = 2 To lR
xIdx = InStr(Asht.Cells(Rw, 2).Value, " (")
If xIdx > 0 Then
eCut = Trim(Left(Asht.Cells(Rw, 2).Value, xIdx - 1))
Else
eCut = Trim(Asht.Cells(Rw, 2).Value)
End If
If eCut <> cCut Then
cCut = eCut
sName = Asht.Cells(Rw, 1).Value
sAdrs = Asht.Cells(Rw, 2).Value
End If
Asht.Cells(Rw, 5).Value = sName
Asht.Cells(Rw, 6).Value = sAdrs
Next Rw
End Sub