主题：[求助]专业报表数字格式化（已解决）

'……

if (ColNames(c) = "金额"

     rt.Cells(r + 1, c).Text = format(tb.Rows(r)(ColNames(c)),"00.00")

else

     rt.Cells(r + 1, c).Text = tb.Rows(r)(ColNames(c))

 end if

' ……

晕，手机回复不好使，还没写完就发出去了，也不能换行，不知道咋回事！