假设您有：

1. Columns A to C中SheetA上的原始数据
   1.您的输出数据位于Columns A to B中的SheetB上
   1.其中SheetB已经具有标头Model和Year
   这将遍历SheetB上的所有模型，并从下一行开始输出唯一的Model:Year组合。因此，如果您在SheetB上已经有一些数据，这个宏不会覆盖该数据，而是在下面添加值。

Sub mydearmacro()

Dim a_ws As Worksheet: Set a_ws = ThisWorkbook.Sheets("SheetA")
Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("SheetB")

Dim a_lr As Long, lr As Long
a_lr = a_ws.Range("A" & a_ws.Rows.Count).End(xlUp).Row

Dim model As String
Dim i As Long, y As Long, x As Long

For i = 2 To a_lr

    model = a_ws.Range("A" & i).Value
    start_year = a_ws.Range("B" & i) - 1
    y = a_ws.Range("C" & i) - a_ws.Range("B" & i) + 1
    lr = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
    
    For x = 1 To y
        ws.Range("A" & lr + x).Value = model
        ws.Range("B" & lr + x).Value = start_year + x
    Next x
    
Next i

End Sub