确认所选单元格区域中是否有公式(HasFormula属性)Sub IfHasFormula()If Selection.HasFormula = True ThenMsgBox “所选单元格中都有公式”ElseMsgBox “所选单元格中，部分单元格没有公式”End IfEnd Sub公式单元格操作 获取与运算结果单元格有直接关系的单元格Sub CalRelationCell() pujipc电脑内容管理系统 MsgBox “选取与当前单元格的计算结果相关的单元格”ActiveCell.DirectPrecedents.SelectEnd Sub 追踪公式单元格Sub Cal1()MsgBox “选取计算结果单元格相关的所有单元格”ActiveCell.Precedents.SelectEnd SubSub TrackCell()MsgBox “追踪运算结果单元格”ActiveCell.ShowPrecedentsEnd SubSub DelTrack()MsgBox “删除追踪线”ActiveCell.ShowPrecedents Remove:=TrueEnd Sub复制单元格(Copy方法)Sub CopyRange()MsgBox “在单元格B7中写入公式后,将B7的內容复制到C7:D7內”Range(“B7”).Formula = “=Sum(B3:B6)”Range(“B7”).Copy Destination:=Range(“C7:D7”)End Sub见过旅行风景，就这样，慢慢学会了长大。
