作业帮 > 综合 > 作业

excel vba怎样判断C:\1.xls中的sheet1中A列中为空的值,并写入值ABC 比如A1,A2,A3有值.A

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/08/13 01:59:38
excel vba怎样判断C:\1.xls中的sheet1中A列中为空的值,并写入值ABC 比如A1,A2,A3有值.A4为空,写入ABC
excel vba怎样判断C:\1.xls中的sheet1中A列中为空的值,并写入值ABC 比如A1,A2,A3有值.A
Workbooks.Open c:\1.xls ' 打开文件
Windows(Filename).Activate ' 选定当前文件窗口
worksheets("sheet1").select
listbox1.clear
j = Application.WorksheetFunction.CountA(Range("A:A")) '总记录条数


for i = 1 to j
if cell(i,1)"" then listbox1.additem cells(i,1)
next