|
|
|
|
|
|
'-------------------------------------------
Sub get_company_workers()
'-------------------------------------------
Dim rngX As Range
Set rngX = [A1].CurrentRegion
Dim shtY As Worksheet: Set shtY = Worksheets("근무자")
Dim row As Range
Dim scode As String
Dim rngF As Range
Dim r As Long
For r = 2 To rngX.Rows.Count
Set row = rngX.Rows.Item(r)
scode = row.Cells(1).Value
Set rngF = shtY.Columns(1).Find(scode)
If rngF Is Nothing Then
'-------------------------------------------
shtY.Range("A100000").End(xlUp).Offset(1).Resize(1, 3).Value = _
Array(row.Cells(1).Value, row.Cells(2).Value, row.Cells(4).Value)
Else
rngF.End(xlToRight).Offset(0, 1).Value = row.Cells(4).Value
End If
Next
End Sub
|
|
[불량 게시물 신고] |
|
|
|
작성일 : 2019-07-21(15:10)
최종수정일 : 2019-07-21(15:10) |
|
|
|
|