Excel cell 内公式不自动计算解决方法

 ■背景：

Excel的工作sheet比较多时，cell内的公式可能不会自动计算。

 

■解决办法：

1.公式所不能自动计算的行先进行剪切。

2.接着把剪切的行插入到下一行即可。

具体的实现代码如下:

'設定シートに項目リストを取得する Set rgItemList = ThisWorkbook.Worksheets(SHT_CONFIG).Range(RANGE_ITEM_LIST) 'サブシステムのシート名を取得 nSheetCount = 0 For Each rgSheetName In rgStatusList If Not IsEmpty(rgSheetName.Value) And Not IsError(rgSheetName.Value) Then nSheetCount = nSheetCount + 1 ReDim Preserve strSheetList(1 To nSheetCount) strSheetList(nSheetCount) = rgSheetName.Value End If Next '各サブシステムのデータシートを設定 For i = 1 To UBound(strSheetList) With ThisWorkbook.Worksheets(strSheetList(i)) .Range("D11:AI11").Cut .Range("D12").Insert Shift:=xlDown .Range("A18:Q18").Cut .Range("A19").Insert Shift:=xlDown End With Next