簡體   English   中英

Excel VBA - 如何在沒有公式的情況下插入值?

[英]Excel VBA - How To Insert Value without Formula?

公式執行后顯示在每個單元格上,是否可以不顯示公式?

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

...我希望我的單元格引用正確...

暫無
暫無

聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.

 
粵ICP備18138465號  © 2020-2024 STACKOOM.COM