一些有用的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)) ThenobjWorksheet.Cells(i, 2).ClearContentsEnd If
Next' 保存并关闭工作簿，退出Excel应用程序
objWorkbook.Save
objWorkbook.Close True
objExcel.Quit' 销毁对象
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objExcel = NothingMsgBox "finish", vbInformation, "notice"

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！