在新列中逐年重复单元格 - Excel答案

【问题标题】：Repeat cell From year To year in new columns - Excel在新列中逐年重复单元格 - Excel
【发布时间】：2016-04-25 07:20:28
【问题描述】：

我有一个包含这 4 列的 Excel 表：

FROM_YEAR|TO_YEAR|MAKE|MODEL

所以这四列已填满，现在我想添加三列额外的列，它可能在同一张纸的右侧 - 参见图片 - 或在新的表格中......

假设我有：

2000,2003,本田,思域

我想像这样从 2000 年到 2003 年重复 MAKE 和 MODEL：

2000，本田，思域

2001，本田，思域

2002，本田，思域

2003，本田，思域

在右侧或新工作表中，将左侧的列作为参考...我可以使用 PHP 和 MySQL 数据库执行此操作，但我想在 Excel 中执行此操作，因为我想了解是否可能。

您可以看到我在 google 中上传的测试表以供参考： https://docs.google.com/spreadsheets/d/1YLY4Dc0NJZ8BW86CTEVPuF_EIOzks591ENU_vEyy5Bw/edit?usp=sharing

告诉我！

【问题讨论】：

标签： excel excel-formula vba

【解决方案1】：

类似以下内容？

Dim lLastRow As Long
Dim i, a, j As Integer

Sub Button1_Click()
lLastRow = Worksheets("Sheet1").Cells(1, 1).End(xlDown).Row
a = 1
For i = 1 To lLastRow
    n = Worksheets("Sheet1").Cells(i, 2).Value - Worksheets("Sheet1").Cells(i, 1).Value + 1
    For j = 1 To n
        Worksheets("Sheet1").Cells(a, 6) = Worksheets("Sheet1").Cells(i, 1).Value + j - 1
        Worksheets("Sheet1").Cells(a, 7) = Worksheets("Sheet1").Cells(i, 3)
        Worksheets("Sheet1").Cells(a, 8) = Worksheets("Sheet1").Cells(i, 4)
        a = a + 1
    Next
Next
End Sub

【讨论】：

@xnanitox：如果回答符合您的需要，请采纳，谢谢。