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

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

excel vba怎样判断C:\1.xls中的sheet1中A列中为空的值,并写入值ABC 比如A1,A2,A3有值.A4为空,写入ABC
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