• Перезаповнення стовпців Excel

    2016-05-16 11:12:33

    Поділитися в Facebook Поділитися ВКонтакте Поділитися в Однокласниках

    VBA-макрос для перезаповнення стовпців із одного листа Excel в інший, по умові.

    Sub IG_02_03_16()
    For k=2 To 478
     Sheets("work").Select
     inv = Cells(k,12).Value
     a = 0.01
      Sheets("sverdlovyny").Select
      For s=6 To 163
       If (Cells(s,3).Value = inv Then
        a = Cells(s,39).Value
       End If
      Next s
     Sheets("work").Select
     Cells(k,30).Value = a
    Next k
    End Sub