为每个唯一值划分一系列值

Question

我希望有人可以帮助我解决这个问题。

我有一个 Excel 数据框，其结构类似于下面的示例：

Model	年	年
A	2010	2012
乙	2013	2020

我需要将每年的年份范围分成一行。 示例如下：

Model	年
A	2010
A	2011年
A	2012
乙	2013
乙	2014
乙	2015年
乙	2016年
乙	2017年
乙	2018
乙	2019
乙	2020

我想不出有什么可以解决的

Answer 1

假设你有：

1. 您在SheetA上的Columns A to C
2. 您的 output 数据将在SheetB的Columns A to B
3. 其中SheetB已经有标题Model & Year

这将遍历SheetB和 output 上的所有模型，从下一个可用行开始唯一的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