ExcelVBA循环赋值

　　你的判断是为0而不是为空，如果是判断为空，=\"\"循环如下sub test ()i=range(\"A65536\").end(xlup).row‘判断A列最后一行的行号for x=1 to i’建立循环从第一行到最后一行if cells(x,1)=0 then cells(x;

　　6)=cells(x,1) & cells(x;

　　2) & cells(x;

　　3)'判断A值为0时，如果是判断为空，=0改变=\"\"next xend sub