重复单元格在新列中的年份到年份 - Excel

时间:2016-04-24 22:59:05

标签: excel excel-vba excel-formula vba

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

FROM_YEAR | TO_YEAR | MAKE |型号

所以这四个列都已填充,现在我想添加三个额外的列,它可以在同一张表的右侧 - 图像 - 或在新表中...

enter image description here

让我说我有:

2000,2003,本田,文娱

我想像2000年到2003年那样重复MAKE和MODEL:

2000,本田,文娱

2001,本田,文娱

2002,本田,文娱

2003,本田,文娱

在右边或新的工作表中,作为参考从左边的列...我可以用PHP和MySQL数据库这样做但我想在Excel中这样做因为我想学习是否可能。

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

让我知道!

1 个答案:

答案 0 :(得分:2)

如下所示?

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