Excel VBA - 如何在没有公式的情况下插入值？

Question

公式执行后显示在每个单元格上，是否可以不显示公式？

VBA代码：

Set rngCell = wbk.Worksheets("TEST1").Range("C1")

  For i = 1 To 81
    rngCell.Offset(i, 0).Value = "=round((COUNTIF('T2'!C[7],RC[-2])/60),2)"
    rngCell.Offset(i, 1).Value = "=round((COUNTIF('T3'!C[6],RC[-3])/60),2)"
    rngCell.Offset(i, 2).Value = "=round((COUNTIF('T4'!C[5],RC[-4])/60),2)"
    rngCell.Offset(i, 3).Value = "=round((COUNTIF('T5'!C[4],RC[-5])/60),2)"
  Next

Answer 1

有很多方法可以做到这一点，可能是在循环后添加它的最简单的方法：

wbk.Worksheets("TEST1").Range("C2:F82").Value =  wbk.Worksheets("TEST1").Range("C2:F82").Value

或者

wbk.Worksheets("TEST1").Range("C2:F" & i).Value =  wbk.Worksheets("TEST1").Range("C2:F" i).Value

...我希望我的单元格引用正确...