一些有用的vbs代码

一些有用的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"