一些有用的vbs代码
一段vbs,若A列单元格内容不为空,则把B列对应单元格内容清空
A列有东西,B列对应位置就没有东西
Option Explicit
' 创建Excel对象
Dim objExcel
Set objExcel = CreateObject("Excel.Application")
' 打开指定的工作簿
Dim objWorkbook
Set objWorkbook = objExcel.Workbooks.Open("C:\Users\Administrator\Desktop\exceltext\a.xlsx")
' 获取第一个工作表
Dim objWorksheet
Set objWorksheet = objWorkbook.Sheets(1)
' 获取工作表范围
Dim lastRow
' -4162 表示 xlUp 常量
lastRow = objWorksheet.Cells(objWorksheet.Rows.Count, "A").End(-4162).Row
' 循环处理每个单元格
Dim i
For i = 1 To lastRow
' 如果 A 列单元格内容不为空,则清空 B 列对应单元格
If Not IsEmpty(objWorksheet.Cells(i, 1)) Then
objWorksheet.Cells(i, 2).ClearContents
End If
Next
' 保存并关闭工作簿,退出Excel应用程序
objWorkbook.Save
objWorkbook.Close True
objExcel.Quit
' 销毁对象
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing
MsgBox "finish", vbInformation, "notice"