Excel VBA – 如何插入没有公式的值？

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

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 

…我希望我的单元格引用权…