如何编写一个 VBA 代码，该代码将循环遍历固定范围并在另一张表中将该范围的每一行填充 N 次（带编号）？

Question

I'm fairly new to using For Loops and am stuck on getting this code to work - would appreciate any help.

I am trying to write a code that will take a fixed range with two columns (Site and Family combination) and populate it onto another sheet, along with numbering months 1 to 12 in an additional column.

The source data is in the sheet named LM and looks like this:

Site        Family 
Site1       Family1
Site2       Family2
[...]

The outcome should populate in sheet named MS and look like this:

Site        Family         Month
Site1       Family1        1
Site1       Family1        2
Site1       Family1        3
Site1       Family1        4
Site1       Family1        5
Site1       Family1        6
Site1       Family1        7
Site1       Family1        8
Site1       Family1        9
Site1       Family1        10
Site1       Family1        11
Site1       Family1        12
Site2       Family2        1
Site2       Family2        2
Site2       Family2        3
Site2       Family2        4
Site2       Family2        5
Site2       Family2        6
Site2       Family2        7
Site2       Family2        8
Site2       Family2        9
Site2       Family2        10
Site2       Family2        11
Site2       Family2        12
[...]

Here is the code I have:

Sub UpdateManualStaging()
    Dim MS As Worksheet, LM As Worksheet
    Dim SiteLM, FamilyLM, SiteMS, FamilyMS
    Dim i As Long, k As Long, l As Long, m As Long
    
    Set LM = Sheets("Lookup & Mapping")
    Set MS = Sheets("Manual Staging")
    
    With LM
    i = .Cells(.rows.count, 23).End(xlUp).Row
    End With
   
    For k = 5 To i
            SiteLM = LM.Cells(k, 23).Value
            FamilyLM = LM.Cells(k, 24).Value
            
        For l = 5 To 17 Step 11
            SiteMS = MS.Cells(l, 3).Value
            FamilyMS = MS.Cells(l, 4).Value
            
            MS.Cells(l, 3).Value = LM.Cells(k, 23).Value
            MS.Cells(l, 4).Value = LM.Cells(k, 24).Value
                
            For m = 1 To 12
                MS.Cells(l, 5).Value = m
            Next m
        Next l
    Next k
End Sub

Answer 1

Maybe something like this?

Sub test()
Set LM = Sheets("Lookup & Mapping")
Set MS = Sheets("Manual Staging")
Set strt = LM.Range("w2:x2") 'assumed that the data in sheet LM starts from cell w2 (site) and x2 (family).

Do
Set f = MS.Range("C" & Rows.Count).End(xlUp).Offset(1, 0) 'assumed that the result in sheet MS starts from cell c2 (site), d2 (family), e2 (month).
f.Offset(0, 2).Value = 1
f.Resize(12, 2).Value = strt.Value
f.Offset(0, 2).AutoFill Destination:=f.Offset(0, 2).Resize(12), Type:=xlFillSeries
Set strt = strt.Offset(1, 0)
Loop Until Application.CountA(strt) = 0

End Sub