[@ds102061]

Один лист я заполнила данными с помощью запроса, а как второй заполнить? Если эти два листа взаимосвязаны

[shanemac51]

а как посторонний человек, не видя документа сможет угадать
--что есть на 1 -м листе
--чего хочет 2-й лист

[@ds102061]

Примерно так должен выглядеть

[@ds102061]

примерно так

[@Kubuntovod]

Ну, что сказать ... Надо идти циклом, сверху вниз и разбирать табличку. Сложность вижу только одну, определение марки оборудования. Хз, по каким критериям её отлавливать.

[@ds102061]

Марку оборудования найти то могу, а вот как записать его на лист, трудновато

Добавлено через 1 час 7 минут
Мне просто нужен пример заполнения

[@Kubuntovod]

Здесь, на форуме, примеров вагон и маленькая тележка.

Кликните здесь для просмотра всего текста

Visual Basic

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 Sub MyProc() Dim i As Long, j As Long, b As Long, t As String, s1 As Worksheet, s2 As Worksheet, r As String, r2 As String   Set s1 = Sheets("Полная")   Set s2 = Sheets("Лист3")   s2.Columns(1).NumberFormat = "@"   t = s1.Cells(2, 2).Value  'Первое значение из полной таблички  j = 5 'Номер строки в сводной  b = 5 'Для вставки формулы Итого (верхняя граница)  'Заполняем первую строку сводной  s2.Range("A5:C5") = s1.Range("B2:D2").Value   s2.Cells(j, 4) = s1.Cells(2, 5).Value   s2.Range("E5:G5") = s1.Range("G2:I2").Value   'Начинаем сравнение со второй строки данных полной таблицы и заканчиваем пустой строкой после данных  For i = 3 To s1.Cells(Rows.Count, "B").End(xlUp).Row + 1     j = j + 1 'Номер строки в сводной    r = CStr(i) 'Перевод числа в строку для указания диапазона    r2 = CStr(j)     If s1.Cells(i, 2).Value = t Then  'Если "раб.ц." равен предыдущему, то копируем данные      s2.Range("C" & r2 & ":D" & r2) = s1.Range("D" & r & ":E" & r).Value       s2.Range("E" & r2 & ":G" & r2) = s1.Range("G" & r & ":I" & r).Value     Else  'Иначе, считаем Итог      s2.Cells(j, 1).Value = t & " Итог"       s2.Cells(j, 5).FormulaR1C1 = "=SUM(R[-" & CStr(j - b) & "]C:R[-1]C)"       s2.Cells(j, 6).FormulaR1C1 = "=SUM(R[-" & CStr(j - b) & "]C:R[-1]C)"       s2.Cells(j, 7).FormulaR1C1 = "=SUM(R[-" & CStr(j - b) & "]C:R[-1]C)"       t = s1.Cells(i, 2).Value  'Берём следующее значение      b = j + 1 'строка в сводной будет после строки Итого      r2 = CStr(b)       s2.Range("A" & r2 & ":C" & r2) = s1.Range("B" & r & ":D" & r).Value       s2.Cells(b, 4) = s1.Cells(r, 5).Value       s2.Range("E" & r2 & ":G" & r2) = s1.Range("G" & r & ":I" & r).Value       j = j + 1     End If   Next i   s2.Cells(j, 1).Value = "Общий Итог"   r2 = CStr(j)   s2.Cells(j, 5).FormulaR1C1 = "=SUM(R[-" & CStr(j - 5) & "]C:R[-1]C)/2"   s2.Cells(j, 6).FormulaR1C1 = "=SUM(R[-" & CStr(j - 5) & "]C:R[-1]C)/2"   s2.Cells(j, 7).FormulaR1C1 = "=SUM(R[-" & CStr(j - 5) & "]C:R[-1]C)/2"   'Делим на 2, т.к. в столбце итоговые суммы уже есть End Sub

Заполняет Лист3. Просто, за ради примера. Потом поменяете на сводную. А оформление ячеек домашнее задание