VBA에서 동적 범위 만들기

Question

분명히 내 코드에 아직 필요한 루프가 없지만 3 행에서 Range ("b3 : gs3") 루프를 만들고 다음 재귀 방식으로 업데이트하고 싶습니다. :

Range("b3:gs3") 
Range("b6:gs6") 
Range("b9:gs9") 
. 
. 
. 
Range("b720:gs720") 

루프를 코딩 할 수는 있지만 범위 값의 변경을 코딩하는 데 어려움이 있습니다.

도움을 많이 주시면 감사하겠습니다.

론

Sub Box() 

    Dim curCell3 As Range 

    For Each curCell3 In Sheets("Sheet 2").Range("b3:gs3").Cells 'This is the problem 

    ActiveWorkbook.Sheets("6").Activate 
    Range("B1").Select 

    Do While ActiveCell.Value <> curCell3.Value 
     ActiveCell.Offset(0, 1).Select 
    Loop 

      ActiveCell.Offset(44, 0).Select 
      ActiveCell.Copy 
      ActiveWorkbook.Sheets("Sheet 2").Activate 
      curCell3.Select 
      ActiveCell.Offset(1, 0).Select 
      ActiveCell.PasteSpecial Paste:=xlPasteValues 

    Next curCell3 

ActiveWorkbook.Sheets("6").Activate 
Rows("3:3").Delete 
ActiveCell.Offset(2, -199).Select 

End Sub 

Answer 1

Sub Box() 

    Dim curCell3 As Range 
    Dim rw As Long, f As Range, rngSrch As Range 

    Set rngSrch = ActiveWorkbook.Sheets("6").UsedRange.Columns(2) 

    For rw = 3 To 720 Step 3 

     For Each curCell3 In Sheets("Sheet 2"). _ 
      Range("b" & rw & ":gs" & rw).Cells 

      Set f = rngSrch.Find(curCell3.Value, , xlValues, xlWhole) 
      If Not f Is Nothing Then 
       curCell3.Offset(0, 1).Value = f.Offset(44, 0).Value 
      End If 

     Next curCell3 

    Next rw 

End Sub