OfficeTutor.com
배움터 나눔터 교육센터 오튜장터
 통합검색  
  Home > 나눔터 > 엑셀 > 묻고답하기
엑셀
워드
액세스
파워포인트
아웃룩
프런트페이지
인포패스
원노트
비지오
쉐어포인트
포토드로우
퍼블리셔
오피스공통
MVP 안내
MVP 명예의 전당
MVP 카페

 

 

 

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

 이하나 (hanamingo)

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

 - 엑셀 버전(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

 
 
회사소개 | 이용약관 | 개인정보 처리방침 | 회원정보수정 | 교육신청 및 문의 | 이메일무단수집거부 위로

오피스튜터 블로그 오피스튜터페이스북 오피스튜터유투브
110-722 서울 종로구 세종대로23길 47, 601-74 ㈜오피스튜터 ☎1544-4102 대표이사 : 전경수
개인정보관리책임자 : 이희진(privacy@officetutor.com) 사업자등록번호 120-86-14501
통신판매업신고 2013-서울종로-0547
norton
Copyright ⓒ OfficeTutor.com 이 페이지의 저작권은 ㈜오피스튜터와 콘텐츠 제공자에게 있습니다. 무단 복제를 금합니다.
Microsoft 및 Office 로고는 미국, 대한민국 및/또는 기타 국가에서의 Microsoft Corporation 등록 상표 또는 상표입니다.