VBA
oneorall
这个作者很懒,什么都没留下…
展开
-
VBA 分割求平均值
Function StrToArr(str As String, delimiter As String) As VariantDim ar, nar()If (Trim(str) = "") Then ReDim nar(0) StrToArr = nar GoTo EndREnd Ifar = Split(str, delimiter)ReDim nar(UBound转载 2017-02-28 13:53:22 · 1388 阅读 · 0 评论 -
VBA - 粘贴为数值型
Private Sub PasteValue()'粘贴为数值型Application.ScreenUpdating = False '关闭屏幕刷新 '循环选择的可见区域 For Each r In Selection.SpecialCells(xlCellTypeVisible) ' 复制 -> 粘贴为数值型 r.Copy r.P原创 2017-03-26 16:42:26 · 14271 阅读 · 0 评论