如能力无法完成方法一 建议完全不要更改任何code 改为用公式修正 =SUBSTITUTE(SUBSTITUTE(SpellNumber(MAX(C:C))"Dollar"" ("&MAX(C:C)&")"&" Carton")"and No Cents""Only") 方法三 笨方法 不用VBA 2011-10-15 00:54:23 补充： 笨方法: 由于箱数不比金额 数值有限及不会带小数 可考虑...