excel vba怎样判断C:\1.xls中的sheet1中A列中为空的值,并写入值ABC 比如A1,A2,A3有值.A4为空,写入ABC
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/02 04:41:11
![excel vba怎样判断C:\1.xls中的sheet1中A列中为空的值,并写入值ABC 比如A1,A2,A3有值.A4为空,写入ABC](/uploads/image/z/5409802-10-2.jpg?t=excel+vba%E6%80%8E%E6%A0%B7%E5%88%A4%E6%96%ADC%3A%5C1.xls%E4%B8%AD%E7%9A%84sheet1%E4%B8%ADA%E5%88%97%E4%B8%AD%E4%B8%BA%E7%A9%BA%E7%9A%84%E5%80%BC%2C%E5%B9%B6%E5%86%99%E5%85%A5%E5%80%BCABC+%E6%AF%94%E5%A6%82A1%2CA2%2CA3%E6%9C%89%E5%80%BC.A4%E4%B8%BA%E7%A9%BA%2C%E5%86%99%E5%85%A5ABC)
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