作业帮 > 综合 > 作业

excel中第一列是数值,第二列是个数,如何用公式将所有数值列出来?

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/28 10:49:00
excel中第一列是数值,第二列是个数,如何用公式将所有数值列出来?
例如:
A1:20 30 50 40
B1:2 2 3 1
想要的结果:20 20 30 30 50 50 50 40
给你编了一段代码.运行即可.公式可能比较复杂,且如果数据多时.影响运行速度.
Sub a()
Dim i&, j&, k&
Range("c:c").ClearContents
k = 1
For i = 1 To [a65536].End(3).Row
    For j = 1 To Range("b" & i).Value
        Range("c" & k) = Range("a" & i)
        k = k + 1
    Next j
Next i
End Sub


再问: 人才,非常感谢。但是我一点击“运行”就提示我由于安全级别设置的高,宏被禁用了,我把安全级别设置的最低还是不行。有什么办法吗?或者您能不能把表格做得再简单一些啊。谢谢
再答: 2003版本——工具——宏——宏安全——设置为低——关闭EXCEL,重新打开。 2007以上——选项——信任中心——信任设置——宏设置——启用所有宏——关闭,重新打开。
再问: 行了耶。谢谢了