一些有用的vbs代码

Alsn86

已于 2023-06-01 13:26:35 修改

阅读量805

点赞数 1

分类专栏： Qt 文章标签： excel

于 2023-06-01 13:22:51 首次发布

我是Alsn,那半个橘子是海上遇到大雨时侯的明亮橘色灯塔!

本文链接：https://blog.csdn.net/Alsn86/article/details/130986230

版权

Qt 专栏收录该内容

18 篇文章 2 订阅

订阅专栏

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