Excel에서 동시에 2 개 항목을 반복하는 데 문제가 있습니다. 나는 쉽게해야 알아,하지만 난 여기에

Question

내가 작업 한 것입니다 정신 블록을 가지고있다. 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