excel表格判断标准怎么写入

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