首页
学习
活动
专区
圈层
工具
发布
社区首页 >问答首页 >在新列中按年重复单元格- Excel

在新列中按年重复单元格- Excel
EN

Stack Overflow用户
提问于 2016-04-25 06:59:05
回答 1查看 57关注 0票数 0

我有一个包含以下4列的excel表:

FROM_YEAR|TO_YEAR|MAKE|MODEL

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

假设我有:

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

让我知道!

EN

回答 1

Stack Overflow用户

发布于 2016-04-25 07:20:28

类似于下面的内容?

代码语言:javascript
复制
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
票数 2
EN
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接:

https://stackoverflow.com/questions/36829859

复制
相关文章

相似问题

领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档