Excel常见宏.doc

清除剪贴板 Sub 清除剪贴板() Application.CutCopyMode = False Application.CommandBars(Task Pane).Visible = False End Sub 批量清除软回车 Sub 批量清除软回车() 也可直接使用Alt+10或13替换 Cells.Replace What:=Chr(10), Replacement:=, LookAt:=xlPart, SearchOrder:= _ xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False End Sub 判断指定文件是否已经打开 Sub 判断指定文件是否已经打开() Dim x As Integer For x = 1 To Workbooks.Count If Workbooks(x).Name = 函数.xls Then 文件名称 MsgBox 文件已打开 Exit Sub End If Next MsgBox 文件未打开 End Sub 当前文件另存到指定目录 Sub 当前激活文件另存到指定目录() ActiveWorkb