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

 한울타리 (syh3095)

추천:  2
파일:     업체근무자관리(매크로).xlsm (20.4KB) 조회:  1932
제목:   고수님들 간절히 부탁드립니다 (업체별 근무자 발췌)
　 　 　
　 "업체명부"시트에서 업체코드별 근무자를 발췌하여 "대상자"시트처럼 업체별 근무자 이름을 열로 작성하려고 합니다.
시간이 없고 매크로는 아직 초보라서 책도 보고 다른 사람 코딩한것 컨닝도 하고 몇칠 동안 퇴근후 매일 밤마다 작성하고 있는데 안되네요
오늘도 벌써 새벽 3시반이 넘어가고 있네요 
고수님들께 간절히 부탁드립니다. 꼭 좀 봐주세요 (액셀파일 첨부 했습니다) 

sub 실행버튼()
   
    Dim t_Rng As Range
    Dim I, J, K As Integer
    Dim Sa_No As Integer
    
    Sa_No = 0
   
    I = K + 1
    J = 1
    
    Set t_Rng = Worksheets("대상자").Range("A1").End(xlUp).Offset(0)
'     
    
    For I = 2 To Range("A1").CurrentRegion.Columns(1).Rows.Count
          t_Rng.Offset(I, J).Value = Cells(I, 1).Value
          t_Rng.Offset(I, J + 1).Value = Cells(I, 2).Value
          t_Rng.Offset(I, J + 2).Value = Cells(I, 4).Value
    
        Do While Cells(I, 1).Value < Sa_No
            t_Rng.Offset(I, J).Value = Cells(I, 4).Value
            j = J + 1
        Loop

    Sa_No = Cells(I, 1).Value
    
Next

End Sub 		　
[불량 게시물 신고]  
 　  　  　
  

작성일 : 2019-07-21(03:41)
최종수정일 : 2019-07-21(08:11)
　


 ◎ 관련글
  제 목   작성자   날짜
◎ 고수님들 간절히 부탁드립니다 (업체별 근무자 발췌) 한울타리 2019-07-21
[RE]고수님들 간절히 부탁드립니다 (업체별 근무자 발췌) 참서리 2019-07-21