主题：日期显示问题

dim ss() as string = {"一月","二月",..........}

for each r as row  in Tables("统计表1").rows

r("月") = ss(r("月") - 1)

next