摘要： 在工作表界面中按 +,进入代码页面，然后再 WORKBOOK中插入模块，把以下代码COPY入模块中。就可以在工作表中使用 =YXSZ(数值，保留位数）。如：A1=456.789B1=YXSZ(A1,4） =456.8代码如下：Public Function YXSZ(X, n As Integer) 'n为有效数字位数 Dim jk, j Dim Y As Single Dim temp As String Dim zfh As Integer zfh = 1 If X = "" Or (Not Application.WorksheetFunction... 阅读全文