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

 이하나 (hanamingo)

추천:  2
파일:     20190211질문.xltm (240.5KB) 조회:  2618
제목:   <추가질문>추가된 행에 대한 자동 번호 매기기
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

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

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

안녕하세요. 
추가된 행에 대한 자동 번호 매기기 VBA에 대해 다시 질문드립니다. 

먼저 실무에서 사용 한 결과, 단순업무가 줄어들게 되어 
제 퇴근시간이 매우! 빨라졌습니다. 다시 한 번 감사합니다.

질문의 요지는 다음과 같습니다,
1. 출력된 값 중, 일부 중복된 값은 첫번째 값만 출력
2. 데이터 행 수 1행 추가
입니다. 제가 기존의 VBA를 바탕으로 해결해보고 싶었는데...
아직 미숙하여 다시한번 질문 드리게 되었습니다.


2019.02.13 Dew님께서 답변 주셨습니다. 정말 감사합니다! 

또 한가지 질문 드리고 싶은 것이 있습니다.
최근 VBA를 공부하며 제 나름대로 1개의  VBA를 작성하여 
업무에 유용하게 사용하고 있습니다. 

현재 사용하는 VBA는 다음과 같습니다.

---------------------------------------
Sub WellList_100()

Dim a As Integer     

    Dim b(1 To 9599) As String '1열에서 9599열까지


    For i = 0 To 9599
    Range("AB2").Offset(i).Value = i Mod 96 + 1 '출력시작해서, 96번이되면 다시 i를 1로 돌린다

Next

End Sub 

---------------------------------------

For문을 사용할 때, 

특정 Cell의 수가 아닌 특정 행과 비교하여 행에 데이터가 있으면 
값을 채울 수 있도록 바꿀 수 있을까요?

이에 대해서도 함께 첨부 해 드립니다.
(1개의 엑셀 내 Sheet별로 첨부 해두었습니다.)


그럼 다시한번 소중한 답변 기다리겠습니다.

감사합니다.


 
[불량 게시물 신고]  
dewFor i = 0 ..... 구분아래에 다음을 추가하세요..
If Range("AB2").Offset(i, 1) = "" Then Exit For  'AC값이 비어 있어면 For문 탈출
02-12 (10:22)
삭제 ■신고
이하나dew님 감사합니다! 이제 첫번째 질문에 대한 답변만 기다리면 되네요, 항상 오피스 튜터에서 많은 것을 배워갑니다!02-13 (07:21)
삭제 ■신고
dew첫번째 질문내용이 잘이해가 되지 않습니다.
2번행의 1, 3001, 3  => 1, 3001, 5 가 어떻게 되는지 ??
02-13 (08:46)
삭제 ■신고
이하나죄송합니다. 1,3001,3 => 1,3001,3으로 동일하게 가야 하는데
제가 수기 작성 후 검토도 하지 않고 질문부터 드렸네요...
다시 엑셀로 작성하여 댓글로 새로 달아두겠습니다. 
확인 해 주시면 감사하겠습니다!
02-13 (19:31)
삭제 ■신고
        
  

작성일 : 2019-02-11(20:50)
최종수정일 : 2019-02-13(07:23)
 


 ◎ 관련글

  제 목   작성자   날짜
<추가질문>추가된 행에 대한 자동 번호 매기기 이하나 2019-02-11
[RE]<추가질문>추가된 행에 대한 자동 번호 매기기(엑셀수정) 이하나 2019-02-13
[RE]<추가질문>추가된 행에 대한 자동 번호 매기기(엑셀수정) dew 2019-02-15