Скопируйте содержимое ячейки и вставьте ее на другой лист несколько раз

Question

Я пытаюсь скопировать значение из двух конкретных ячеек в определенные ячейки на другом листе. Проблема в том, что у меня много ячеек на первом листе, а некоторые из них пустые. Также вставка всегда 99 раз, только изменения диапазона. Есть ли цикл, чтобы сделать все более легким?

Вот моя попытка

Sub copytry() 

Worksheets("sheetI").Range("I17:J17").Copy _ 
Destination:=Worksheets("sheetII").Range("F1352:F1451") 
Worksheets("sheetI").Range("I18:J18").Copy _ 
Destination:=Worksheets("sheetII").Range("F1452:F151") 

End Sub 

Answer 1

Практика использования этого

Sub copytry() 
    Dim ws As Worksheet 
    Dim sh As Worksheet, lstrw As Long 
    Dim Rws As Long, Rng As Range, c As Range 

    Set ws = Worksheets("sheetI") 
    Set sh = Worksheets("sheetII") 

    With ws 

     Rws = .Cells(Rows.Count, "I").End(xlUp).Row 
     Set Rng = .Range(.Cells(17, "I"), .Cells(Rws, "I")) 
     For Each c In Rng.Cells 
      If c = "" Then c = "." 'Added to Code 
      lstrw = sh.Cells(Rows.Count, "A").End(xlUp).Row + 1 
      c.Range("A1:B1").Copy Destination:=sh.Range(sh.Cells(lstrw, 1), sh.Cells(lstrw + 99, 1)) 

     Next c 

    End With 

End Sub