■ 背景: 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