Переход к следующей строке данных в диапазоне

Question

В следующем коде Range (C16: I16) будет копироваться только эта строка данных.Мне нужно, чтобы он перешел на следующую строку ниже, потому что это будет на следующий день.И продолжайте делать это до конца каждого месяца.Что мне нужно добавить, чтобы достичь этого?Спасибо.

Sub test()

Workbooks("MAY10-Key Indicator Daily Reportcopy.xls").Sheets("Input").Activate
Set c = Range("B15:B45")
For Each cell In c
    If cell.Value = Range("I5").Value Then
        Workbooks("McKinney Daily Census Template OCT 10 (11).xls").Sheets("McKinney").Range("C16:I16").Copy
        cell.Offset(0, 37).PasteSpecial
End If
    Next
Application.CutCopyMode = False
End Sub

Answer 1

Добавьте .Offset(i-1, 0) после диапазона, где i - день #.Кроме того, чтобы получить количество уже заполненных строк, вместо начальной ссылки используйте

Public Function CountRows(ByRef r As Range) As Integer
    CountRows = r.Worksheet.Range(r, r.End(xlDown)).Rows.Count
End Function

Вы также можете использовать функцию <range>.Resize(num_rows, num_cols) для создания диапазонов из нескольких ячеек (переменного размера).