VBA去中文字符的空格

huangrh1

1、VBA去中文字符的空格
2、转换的内容自动求和

smallred007

这种格式是如何生成的？

shuyee

为什么要用VBA呢？用操作解决吧。
先在边上空格输入0，复制它，然后选中B2:B21，使用“选择性粘贴”，用加法，就OK了。求和，你在最后，按alt+enter组合键，它会提供求和函数。

huangrh1

shuyee 发表于 2014-2-26 18:16
为什么要用VBA呢？用操作解决吧。
先在边上空格输入0，复制它，然后选中B2:B21，使用“选择性粘贴”，用加 ...

后面还有其它需求，要用程序处理，这个空格是从其它软件中导出的

shuyee

这里仍然使用了公式（代码写起来简单，嘿嘿）。其实也可以直接求的。如果数据量庞大，还是直接求吧。
另外，你从其它系统导入的，首字符，并不是空格，而是非打印字符，它的Asc码值是63
Sub test()
Dim tmpR As Range
Set tmpR = Range("B2:B21")
tmpR.Offset(0, 1).FormulaLocal = "=--mid(B2,2,5)"
Cells(2 + tmpR.Rows.Count, 3).FormulaLocal = "=sum(" & tmpR.Offset(0, 1).Address & ")"
Set tmpR = Nothing
End Sub