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

 빛 (KSC2776)

추천:  2
파일:     NO순차 부여방법.xlsx (10.7KB) 조회:  1117
제목:   동일ID에 NO 순차 등록방법
　 　 　
　 * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 엑셀 버전(95,97,2000,xp,2003,2007):

* 아래줄에 질문을 작성하세요 >>

1. 수고가 많으십니다.
2. 문의사항
  -. A열에 ID 유형이 여러가지 등록되었을 경우 동일ID B열에 10단위 NO을 순차 등록방법을 VBA를 알려주면 감사하겠습니다.
3. 방법 ID열 첫번쨰 값과 두번째 값이 동일하면 NO열에 10을 넣고 순환 
   하면서 10의 배수로 행마다 값을 추가 한다.
 만약에 불일치 조건이 나오면 불일치 첫번쨰 행부터 다시 10을 넣고 순환 진행 한다.
마지막 까지 완료시까지 무한반복 진행  
   
  -. 첨부 파일 참조 		　
[불량 게시물 신고]  
빛** VBA문을 작성하였으나 잘 않되네요
  -. 고수님들의 가르침 부탁 드립니다.

Sub 순차1()

    Dim lngE As Long
    Dim lngI As Long
    Dim lngP As Long
    
    lngE = Cells(Rows.Count, 1).End(xlUp).Row
    
    For lngI = 1 To lngE
    lngP = lngI * 10
    If Range("a" & lngI) = Range("a" & lngI).Offset(1, 0) Then
        Range("B" & lngI).Offset(1, 0) = lngP
        
        End If
        Next
        
End Sub
03-31 (10:36)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2023-03-30(19:42)
최종수정일 : 2023-03-31(10:14)
　


 ◎ 관련글
  제 목   작성자   날짜
◎ 동일ID에 NO 순차 등록방법 빛 2023-03-30
[RE]동일ID에?NO?순차?등록방법 정일한 2023-04-02
[RE]동일ID에?NO?순차?등록방법 잡초 2023-03-31