ecelvba常见问题问答.docVIP

《001》 用命令按扭打印一个sheet1中B2:M30区域中的内容?002》 能否对一列中的文字统一去掉最后一个字?这些文字不统一,有些字数多,有些字数少。如何处理?我用{-}不行解答：=REPLACE(A1,LEN(A1),1, )(在过渡列进行) 003》 能否根据单元格数值自动标记序号？各位大佬，一工作表有两列，“序号”及“金额”，能否将金额不等于0的行自动标上序号呢？如无现成的函数，应怎样设置？解答：Dim xuhao As Integerxuhao = 1Range(b2).SelectDo While Selection ? If Selection 0 Then? ActiveCell.Previous.Value = xuhao? xuhao = xuhao + 1? End If? ActiveCell.Offset(1, 0).Range(a1).SelectLoop 《004》 求教自定义函数查询了一些自定义函数的例子都是单变量的。自定义函数能否建立“(As Range) As Interger”的函数，应该可以的，请各位大师赐教！请以“∑x2”为例，万分感谢！(该用For Each ...Next，就是还不知道如何引用Range中的每个值，请高手指点。)解答：参数使用Range而函数值为Integer是可以的用for e