Range("c10").Value = "大于等于9小于10的数量：" & countVal9，分到两列显示

可以使用以下代码将结果分到两列显示：

Range("C10").Value = "大于等于9小于10的数量："
Range("D10").Value = countVal9

这样会将文本和数值分别显示在 C10 和 D10 两个单元格中。如果需要将文本和数值合并到一个单元格中，可以使用以下代码：

Range("C10").Value = "大于等于9小于10的数量：" & countVal9

这样会将文本和数值合并显示在 C10 单元格中。

相关问题

'计算区间计数 countVal = WorksheetFunction.CountIf(Range("A1:A" & lastRow), ">=20 and <40") Range("c2").Value = "大于等于20的数量：" & countVal countVal = WorksheetFunction.CountIf(Range("A1:A" & lastRow), ">=40 AND <60") Range("c3").Value = "大于等于40的数量：" & countVal countVal = WorksheetFunction.CountIf(Range("A1:A" & lastRow), ">=60") Range("c4").Value = "大于等于60的数量：" & countVal '计算所占比例 countRatio = countVal / WorksheetFunction.CountA(Range("A1:A" & lastRow)) Range("d2").Value = "大于等于20的数量占比：" & Format(countRatio, "0.00%") countRatio = countVal / WorksheetFunction.CountA(Range("A1:A" & lastRow)) Range("d3").Value = "大于等于40的数量占比：" & Format(countRatio, "0.00%") countRatio = countVal / WorksheetFunction.CountA(Range("A1:A" & lastRow)) Range("d4").Value = "大于等于60的数量占比：" & Format(countRatio, "0.00%"),统计错误

看起来你在计算区间计数和占比时出现了错误。对于区间计数，你使用了错误的语法。应该使用以下语法：

countVal = WorksheetFunction.CountIf(Range("A1:A" & lastRow), ">=20") - WorksheetFunction.CountIf(Range("A1:A" & lastRow), ">=40") + WorksheetFunction.CountIf(Range("A1:A" & lastRow), ">=60")

这将计算所有大于等于20的数减去所有大于等于40的数加上所有大于等于60的数，从而得到所需的区间计数。

对于占比，你在每个计算中都使用了相同的变量 `countVal`，这是不正确的。应该使用以下语法：

countRatio = countVal / WorksheetFunction.CountA(Range("A1:A" & lastRow))
Range("d2").Value = "大于等于20的数量占比：" & Format(countRatio, "0.00%")
countRatio = (countVal - WorksheetFunction.CountIf(Range("A1:A" & lastRow), ">=20 AND <40")) / WorksheetFunction.CountA(Range("A1:A" & lastRow))
Range("d3").Value = "大于等于40的数量占比：" & Format(countRatio, "0.00%")
countRatio = WorksheetFunction.CountIf(Range("A1:A" & lastRow), ">=60") / WorksheetFunction.CountA(Range("A1:A" & lastRow))
Range("d4").Value = "大于等于60的数量占比：" & Format(countRatio, "0.00%")

这将计算每个区间的占比，并将其放置于正确的单元格中。

希望这能帮助你解决问题！

countVal20 = WorksheetFunction.CountIf(Range("A2:A" & lastRow), ">=20") Range("c21").Value = "大于等于20的数量" Range("d21").Value = countVal20，改为统计总数量

可以将原来的代码修改为：

countVal = WorksheetFunction.CountA(Range("A2:A" & lastRow))
Range("C21").Value = "总数量"
Range("D21").Value = countVal

这样就能统计出总数量了。