VBA脚本: 批量删除Excel指定工作表G列内容

VBA脚本: 批量删除Excel指定工作表G列内容

你是否需要从Excel表格的指定工作表中删除G列的所有内容？手动删除每一行内容可能会非常耗时，特别是当你有大量数据的时候。

为了帮助你提高工作效率，本文提供了一个简单易用的VBA脚本，可以一键删除Excel表格中指定工作表G列从第二行到最后一行的所有内容。

以下是VBA脚本代码：

Dim xlApp, xlWorkbook, xlWorksheet, xlRange
Set xlApp = CreateObject('Excel.Application')
xlApp.Visible = False '设置Excel应用程序不可见

'打开Excel文件
Set xlWorkbook = xlApp.Workbooks.Open('YOUR_FILE_PATH')
Set xlWorksheet = xlWorkbook.Worksheets('YOUR_SHEET_NAME') '选择要操作的工作表

'获取要删除的范围
Set xlRange = xlWorksheet.Range('G2:G' & xlWorksheet.Cells(xlWorksheet.Rows.Count, 'G').End(-4162).Row)

'清空G列内容
xlRange.Clear

'保存并关闭工作簿
xlWorkbook.Save
xlWorkbook.Close

'释放Excel对象
xlApp.Quit
Set xlRange = Nothing
Set xlWorksheet = Nothing
Set xlWorkbook = Nothing
Set xlApp = Nothing

使用方法：

1. 将以上代码复制到文本编辑器中。
2. 将 'YOUR_FILE_PATH' 替换为实际的Excel文件路径。
3. 将 'YOUR_SHEET_NAME' 替换为要操作的工作表名称。
4. 将文件保存为.vbs格式，例如'删除G列内容.vbs'。
5. 双击运行该.vbs文件。

注意：

• 运行.vbs文件后，Excel将在后台运行，不会显示在屏幕上。
• 如果你需要查看或调试代码，请将 'xlApp.Visible = False' 改为 'xlApp.Visible = True'。

希望这个VBA脚本可以帮助你快速删除Excel表格中指定工作表G列的内容！