Я хочу зациклить столбец, смещая его на одну строку и добавляя 1 к значению строки ниже:
Пример:
A 1 ..... 82 ..... 7 3 ..... 6 4 ..... 5
Я построил код (разделен ниже), чтобы определить и заполнить правильное значение нижней строки (на основеот другой таблицы) и заполнил ячейку выше.Но изо всех сил пытаясь заставить его зацикливаться до верхнего ряда в столбце (A7)
Dim wscombined As Worksheet
Dim wspsimp As Worksheet
Set wscombined = ThisWorkbook.Worksheets("2013-2018 Combined")
Set wspsimp = ThisWorkbook.Worksheets("Pipeline simplified")
u = Application.WorksheetFunction.Max(wscombined.Range("A7:A50"))
'Fill latest new completed transaction with next UniqueID
LastRowU = wspsimp.Range("J" & Rows.Count).End(xlUp).Row
Cells(LastRowU, 8).Offset(, -7).Value = u + 1
Z = Cells(LastRowU, 8).Offset(, -7)
Cells(LastRowU, 8).Offset(-1, -7).Value = Z + 1