可以运行VBA宏代替手工逐个单元格刷格式刷。代码如下:Sub getFormat()Dim c As RangeOn Error Resume NextFor Each c In ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
Range(c.Formula).Copy
c.PasteSpecial xlPasteFormatsNext cApplication.CutCopyMode = FalseEnd Sub此代码会抽取公式指向的源...