使用VBA

Question

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

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

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

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

Answer 1

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

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

Answer 2

您的代码有两个缺陷：

• 它使用“b”（字符串“b”）而不是变量b

• 它错过了一行（b应该是b + 1）

所以它变成了：

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