2016-04-24 35 views
0

我有一個Excel工作表與這4列:重複單元每年 - Excel中

FROM_YEAR | TO_YEAR |設爲|型號

所以這四列裝滿,現在我想添加三個額外的列,它可能是相同的 - 見紙的圖像 - 或在新的工作表的權利......

enter image description here

比方說,我有:

2000,2003,本田,思域

我想重複品牌和型號二〇〇〇年至2003年是這樣的:

2000年,本田,思域

2001年,本田,思域

2002年,本田,思域

2003年,本田,思域

到正確或在新的工作表,其作爲參考,從左邊的列...我能做到這一點的Wi th PHP和MySQL數據庫,但我想在Excel中做這個cuz我想了解它是否可能。

你可以看到測試表我谷歌已經上傳以供參考: https://docs.google.com/spreadsheets/d/1YLY4Dc0NJZ8BW86CTEVPuF_EIOzks591ENU_vEyy5Bw/edit?usp=sharing

讓我知道!

回答

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 
+0

@xnanitox:如果答案符合您的需求,請接受,謝謝。 – CMArg