使用VBA

时间:2018-04-02 04:51:39

标签: excel vba

我有结果列表和每个结果发生的次数。我想在第二张表格中生成一个结果表,其中每个结果的行数是它发生的次数。这就是我到目前为止所拥有的:

Sheets("Sheet1").Activate
    a = B3
    b = C3

Sheets("Sheet2").Activate
    Range("B" & "2" & ":B" & "b").Select
    ActiveCell = "a"

a是结果,b是发生的次数

2 个答案:

答案 0 :(得分:0)

尝试使用调整大小重塑目标。

dim a as variant, b as long

with workSheets("Sheet1")
    a = .range("B3").value
    b = .range("C3").value
end with

with workSheets("Sheet2")
    .Range("B2").resize(b, 1) = a
end with

答案 1 :(得分:0)

您的代码有两个缺陷:

  • 它使用“b”(字符串“b”)而不是变量b

  • 它错过了一行(b应该是b + 1)

所以它变成了:

Sheets("Sheet2").Range("B2:" & (b + 1)).Value = a