利用workwheet的change方法PrivateSubWorksheet_Change(ByValTargetAsRange)''''代码中充分利用Target这个参数和这个参数的VALUE、ROW、COLOUME等属性,用于判断正在被编辑的单元格的位置''''一般还会用到application.WorksheetFunction这个对象，对象包括的成员就是EXCEL中的公式''''因为你没有提供具体数据，我也不好提供具体代码了endsub