- Excel 如何清空指定单元格区域全部内容的VBA
- 用宏一键删除表格所有编辑内容
- VBA 清除工作表中所有的内容（包括内容、格式、图表等）的代码
- 如何使用VBA在EXCEL中批量删除整列数据并调整列的顺序？
Excel 如何清空指定单元格区域全部内容的VBA
1、新建一个EXCEL工作表，而后打开，在下方工作表标签位置，就是sheet1的地方，点击鼠标右键，而后在弹出的选项卡里面找到查看代码
2、点击查看代码，而后会弹出EXCEL支持的后台代码VBA界面，我们我们可以看到左侧是我们的工作表标签，而后右边就是代码窗口
3、我们在sheet1的右侧代码窗口，输入代码，这里的意思是区域的值，等于 "欢迎光临"
4、代码输入完成后，我们开始对代码开始测试执行效果，在VBA代码窗口上方，找到绿色的三角箭头
5、点击绿色的运行箭头，而后系统会弹出一个新的对话框，我们在对话框里面选择我们刚才新建的test代码，而后找到运行菜单就可以了
用宏一键删除表格所有编辑内容
说清楚有点：
1、是不是想删除一个表格里所有的内容，如：sheet1、sheet2、3、4等等。
2、是不是想删除一个表格里单一的sheet1里面的内容。
3、操作1，打开表格点到下方sheet1、sheet2、3、4等等，鼠标点到最后一个，按住shift然后点到sheet1，再点击右键删除就行了。
4、操作2，打开表格按住ctrl+A，然后再按delete删除就行了。
VBA 清除工作表中所有的内容（包括内容、格式、图表等）的代码
可以用下面思路：新建一个空白工作表，然后删除其他所有工作表，代码如下：
在VBA中添加一个用户模块，粘贴下面代码：
Sub 删除()
Set sh1 = Sheets.Add
Application.DisplayAlerts = False
For Each sh In Worksheets
If sh.Name <> sh1.Name Then sh.Delete
Next
Application.DisplayAlerts = True
End Sub执行即可
提示，执行前做好备份，防止误删除。
如何使用VBA在EXCEL中批量删除整列数据并调整列的顺序？
我的思路不一样，但结果应该是一样的
我是把要保留的列，放到新表（sheet2）里面且排序了
首先，需要将排序的位置放在sheet2的A列中，然后执行代码
Sub m()
Set dicb = CreateObject("scripting.dictionary")
For i = 1 To Sheet2.Range("A65536").End(xlUp).Row
If dicb.exists(Sheet2.Cells(i, 1).Value) = False Then
k = k + 1
dicb(Sheet2.Cells(i, 1).Value) = k + 1
End If
Next i
For i = 1 To Range("A1").End(xlToRight).Column
If dicb.exists(Cells(1, i).Value) = True Then
Columns(i).Copy Sheet2.Columns(dicb(Cells(1, i).Value))
End If
Next i
End Sub