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
有很多方法可以做到这一点,也许最简单的是在循环之后添加它:
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
…我希望我的单元格引用权…