主题：[求助]动态生成Excel报表(搞定)

那个位置如果是空值：笨办法：

 

if Wb.Sheets(1).range("A5").Value = ""
    Wb.Sheets(1).range("A5").Value = "合计"

End if

一共才4个，连续几个if...........then 就可以了。

如果你的一个excel表中A5、A6。。。。。不止一个空值，那你就得指定那个表的那个单元格了。依据你在论坛的时间，你应该在前10楼的时候就可以搞定了。

大哥啊，这样不成吗：

 

If name = "林分属性表"

.......代码。。。。

End If