方便小工具资料.doc

分离表格： 按alt+F11, 视图代码窗口 --把如下复制进去--按F5 运行即可 Sub fencun() Application.ScreenUpdating = False b = Sheets.Count For i = 1 To b Sheets(i).Copy a = ThisWorkbook.Worksheets(i).Name With ActiveWorkbook .SaveAs Filename:=ThisWorkbook.Path \ a .xls .Close End With Next i Application.ScreenUpdating = true End Sub 筛选电话号码 =-LOOKUP(,-MID(A1,MIN(FIND({1,2,3,4,5,6,7,8,9,0},A11234567890)),ROW($1:$99))) 筛选重复数据 =if(countif(C$1:C1,C1)1,重复,)  怎么把PPT的照片固定大小放进去： 新建一个空白幻灯片。（2）→【插入】→【图片】→【新建相册…】→【相册】对话框：→【文件/磁盘…】按钮，选定你要插入的所有图片（一次性可以选多张）；3→【插入】。4→【相册板式】的【图片板式】→【适应幻