excel怎么删除个人工作簿中的宏(vba删除当前工作簿)

1. vba删除当前工作簿

先看看电脑2的工作簿是不是不在同一个工作区。

也就是在视图看看是不是能全看到。

2. vba删除工作簿中工作表

alt+F11

菜单，插入，模块

然后右边大空白区将下面的代码复制进去

然后存盘退出

重新打开工作簿，打开时，根据提示，最终需要你选择“启用宏”

从列表中找到 删除筛选后隐藏行 ，执行

代码如下，如果你的是excel 2007以上版本或者你实际行数超过65536行，代码中的65536修改为1048576

Sub 删除筛选后隐藏行()

For i = Range("A65536").End(xlUp).Row To 1 Step -1

If Rows(i).EntireRow.Hidden = True Then

Rows(i).Delete shift:=xlUp

End If

Next

End Sub

3. vba删除工作簿中指定工作表

　　Sub 新建工作簿()

　　Application.ScreenUpdating = False

　　Dim gzb As Workbook

　　Set gzb = Workbooks.Add

　　ActiveSheet.Name = "1-a"

　　Workbooks("A.xls").Sheets("a").Cells.Copy [a1]

　　Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = "1-b"

　　Workbooks("A.xls").Sheets("b").Cells.Copy [a1]

　　gzb.SaveAs ThisWorkbook.Path & "\1-A.xls", FileFormat:=xlExcel8

　　Set gzb = Nothing

　　ActiveWorkbook.Close

　　Application.ScreenUpdating = True

　　End Sub

这个vba代码写在A工作簿的模块里即可，指定区域你可以自己修改下代码，我这里是全表复制的效果。

4. vba 删除工作薄

可以先打开指定的工作簿，然后将要保存的的公式的单元格用复制或者剪裁方式进行操作，在指定工作簿的工作表的指定位置用选择性粘贴，然后保存指定的工作簿并关闭。将源工作簿的单元格设为空即可。你要用的关键字：rang().select(选择）

;select.copy（拷贝）;rang().PasteSpecial（选择性粘贴）;

5. VBA删除工作簿

我的解决思路是：

新建工作簿

新建工作表

选择性黏贴全部数据

遍历第一行删除有特殊标记列

遍历第一列删除有特殊标记行

保存并关闭新工作簿。

模拟数据

打开vbe

增加模块，添加代码

最后结果

6. vba删除当前工作簿的内容

下面是一次性删除当前活动工作表的所有超链接 PublicSubClearHyperlinks() DimhylAsHyperlink ForEachhylInActiveSheet.UsedRange.Hyperlinks hyl.Delete Next EndSub 当然可以保留，只删除链接，如果要删除所有工作表的超链接，可再做个循环。看下面的代码 PublicSubClearHyperlinks() DimwsAsWorksheet DimhylAsHyperlink ForEachwsInSheets ws.Select ForEachhylInActiveSheet.UsedRange.Hyperlinks hyl.Delete Next Nextws EndSub 下面函数用于判断单元格是否引用了其他工作表数据 PublicFunctionISSHEETDATA(myCellAsRange)AsBoolean IfmyCell.HasFormulaAndInStr(myCell.Formula,"!")>

0Then ISSHEETDATA=True Else ISSHEETDATA=False EndIf EndFunction 下面函数用来判断单元格是否引用了其他外部工作簿数据 PublicFunctionISWORKBOOKDATA(myCellAsRange)AsBoolean IfmyCell.HasFormulaAndInStr(myCell.Formula,"xls")>

0Then ISWORKBOOKDATA=True Else ISWORKBOOKDATA=False EndIf EndFunction

7. vba删除工作簿中的第一行

使用For Each……Next语句遍历所有工作表，使用自定义的MyIsBlankSht函数判断是否为空表，如果为空表则使用Delete方法删除。

VBA过程代码175：利用VBA的自定义函数，判断工作表是否存在

8. vba保存当前工作簿

答解决方法/步骤如下

1.出现对话框，点击否。

2.选择Excel保存的类型，点击Excel启用宏的工作簿.xlsm。

3.打开Excel，点击开发工具——宏，这时就能发现ExcelVBA被保存了。

4.点击执行，就能执行你录制的宏代码了。

5.当然你也可以通过文件——另存为——文件格式为启用宏的工作簿.xlsm。

9. excel删除工作簿

如果要删除整个工作簿下的所有工作表，可以直接删除整个工作簿，然后“新建工作簿”，以原工作簿重命名。

顶一下

(0)

0%

踩一下

(0)

0%