Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Заполнение диапазонов по первому признаку
 
Мое решение, если еще актуально...

Option Explicit
Sub priznak()
   Dim wsh As Worksheet
   Dim n, i As Integer
   Set wsh = ThisWorkbook.Worksheets(1)
   n = 2
   Do While wsh.Cells(n, 1).Value <> ""
       If wsh.Cells(n, 2).Value <> 0 Then
           wsh.Cells(n, 3).Value = wsh.Cells(n, 2).Value
       Else
           i = 2
           Do While wsh.Cells(i, 1).Value <> ""
               If wsh.Cells(i, 2).Value <> 0 And wsh.Cells(i, 1).Value = wsh.Cells(n, 1).Value Then
                   wsh.Cells(n, 3).Value = wsh.Cells(i, 2).Value
               End If
           i = i + 1
           Loop
       End If
       n = n + 1
   Loop
End Sub
Страницы: 1
Наверх