我有结果列表和每个结果发生的次数。我想在第二张表格中生成一个结果表,其中每个结果的行数是它发生的次数。这就是我到目前为止所拥有的:
Sheets("Sheet1").Activate
a = B3
b = C3
Sheets("Sheet2").Activate
Range("B" & "2" & ":B" & "b").Select
ActiveCell = "a"
a是结果,b是发生的次数
答案 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