У меня проблемы с зацикливанием двух элементов одновременно в Excel.Я знаю, что это должно быть легко, но у меня есть умственный блок

Question

Вот что у меня работает.Как мне сделать этот цикл с 'loop в то время как диапазон B <> 0?Мой код:

x = Range("F2") + 5
y = Range("T26")

Range("B26").Copy
Sheets("Results").Select
Cells(x, y).Select
ActiveCell.PasteSpecial xlPasteValues

Sheets("Input").Select
y = Range("T27")
Range("B27").Copy
Sheets("Results").Select
Cells(x, y).Select
ActiveCell.PasteSpecial xlPasteValues

Sheets("Input").Select
y = Range("T28")
Range("B28").Copy
Sheets("Results").Select
Cells(x, y).Select
ActiveCell.PasteSpecial xlPasteValues

и т. Д. И т. Д.

Answer 1

Непроверенные:

Dim shtI As Worksheet, shtR As Worksheet
Dim c As Range
Dim x As Long, y As Long

Set shtI = ThisWorkbook.Sheets("Input")
Set shtR = ThisWorkbook.Sheets("Results")
x = shtI.Range("F2").value + 5

Set c = shtI.Range("B2")
Do While Len(c.value) > 0
    y = shtI.Range("T" & c.Row).value
    If IsNumeric(y) Then shtR.Cells(x, y).value = c.value
    Set c = c.Offset(1, 0)
Loop