|
"업체명부"시트에서 업체코드별 근무자를 발췌하여 "대상자"시트처럼 업체별 근무자 이름을 열로 작성하려고 합니다.
시간이 없고 매크로는 아직 초보라서 책도 보고 다른 사람 코딩한것 컨닝도 하고 몇칠 동안 퇴근후 매일 밤마다 작성하고 있는데 안되네요
오늘도 벌써 새벽 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 |
|