VB接近这个excel函数

Question

这是功能,它没有任何问题

1. 在具有空""的单元格中替换 char 160的所有出现.
2. 修剪任何空白区域.
3. 串接在前面再次焦炭160到达的数量.

act是引用的工作表的名称.

任何人都可以提供相当于VB的VB吗？

Range("a1").Value = "=+CONCATENATE(char(160),trim(substitute(" & act & "!RC[3],char(160),"""")))"

我有一个电话索引,上面有类似的数字用于比赛.

Answer 1

您可以使用以下任何一种(未经测试)

一.直接输入它作为公式

在这种情况下,你将替换.Value为.Formula

Range("A1").Formula = "=+CONCATENATE(char(160),trim(substitute(" & _
                      act & "!RC[3],char(160),"""")))"

乙.使用Application.Evaluate哪个可以让你使用相同的代码

Range("A1").Value = Application.Evaluate("=CONCATENATE(char(160),trim(substitute(" & _
                    Sheets(act).Range("D1").Value & ",char(160),"""")))")

C 使用VBA功能

连接等效是&

修剪是Trim

替代是Replace

Char是Chr

RC [3]是右边的第3个单元,Range("D1")在这种情况下

所以上面的内容可以写成

Range("A1").Value = Chr(160) & _
                    Trim(Replace(Sheets(act).Range("D1").Value, Chr(160), ""))