Sub transferTT2S ()
Тусклые wss как рабочий лист, wst как рабочий лист, r как ряд, r2 как ряд
Установите wss = листы («сводка»)
Установите wst = листы («TaskTracker»)
'извлекайте все существующий данные
'wss.UsedRange.Offset (1).ClearContents
' -- или --
'находите следующий пустой рядок
Установите r = wss.UsedRange.Rows (wss.UsedRange.Rows.Count - 1).EntireRow.Cells (1)
r.EntireRow.Delete
Установите r = wss.UsedRange.Rows (wss.UsedRange.Rows.Count). Возместите (1).EntireRow.Cells (1)
r.Value = wst. [B3]. Значение
Установите r2 = wst. [A: A]. Находка («полные часы»). Смещение (- 1)
Установите r2 = ряд (r2, wst. [A7])
Установите r2 = соединение (r2, r2.Offset (, 3), r2.Offset (, 4))
r2.Copy
r.Offset (, xlPasteValues 1).PasteSpecial
wss. Ряд (wss. Клетки (r.Row, r.Column + 3), wss. Клетки (r.Row + r2.Rows.Count - 1, r.Column + 3)). Отрежьте wss. Клетки (r.Row, r.Column + 4)
r.Offset (, 2).Resize (r2.Rows.Count, 3).NumberFormat = «[h]: mm: ss»
r.Offset (, 2).Resize (r2.Rows.Count, 2).HorizontalAlignment = xlCenter
r.Offset (, 3).Value = r2.Rows (r2.Rows.Count). Клетки (1).Offset (1, 1).Value
r.Offset (r2.Rows.Count, 0). Значение = «суммарный итог»
С r.Offset (r2.Rows.Count, 3)
. Значение = «=SUM (D1: D» & r.Offset (0, 0). Рядок + r2.Rows.Count - 1 & ") «
.NumberFormat = «[h]: mm: ss»
Конец с
С r.Offset (r2.Rows.Count). Измените размеры (1, 4)
. Граничит (xlEdgeTop) .LineStyle = xlDouble
. Граничит (xlEdgeBottom) .LineStyle = xlDouble
Конец с
С r.Rows (1).Columns (1).Resize (, 4).Borders (xlEdgeTop)
.LineStyle = xlContinuous
. Вес = xlThin
Конец с
Затемните I, irow как длиной
wss. Ряд («A1») .ClearOutline
irow = wss. Ряд («A2: A65536») .SpecialCells (xlCellTypeLastCell). Рядок - 1
Установите r = wss. Ряд («A2»)
Пока r.Row <� irow=""> установленное r = r.Offset (1)
Ряд (r, r.End (xlDown). Смещение (- 1)). Rows.Group
Установите r = r.End (xlDown)
Wend
wss. Outline.ShowLevels RowLevels: =1
Подводная лодка конца
