Public Function strChar(ByVal Str As String) As String
Dim ReStr As String = Str
If Not ((Str = "") OrElse (Str Is Nothing)) Then
If (Str.Length > 0) Then
ReStr = Str.Replace(""& vbLf, "").Replace(""& vbTab, "").Replace(""& vbCr, "")
End If
End If
Return ReStr
End Function
vbLf --- 回车换行符
vbTab ---Tab键
vbCr ---制表符
PublicFunctionstrChar(ByValStrAsString)AsStringDimReStrAsString=StrIfNot((Str="")OrElse(StrIsNothing))ThenIf(Str.Length>0)Then ReStr=Str.Replace(""&vbLf,"").Replace(""...
文章目录1 Tools1.1 关闭用户表单1.2 终止下面操作1.3
字符串
拼接1.4 保留路径的空格字符1.5
去掉
换行符
1.6 Excel操作1.6.1 绝对路径1.6.2 SheetName1.6.3 Save1.6.4 某个Sheet某个单元格的值2 数据初始化3 执行脚本4 关闭某个正在打开的文件5 文件另存6 选择文件7 选择文件夹
1 Tools
1.1 关闭用户表单
Unload Me
1.2 终止下面操作
Exit Sub
1.3
字符串
拼接
str1 & str2
可以扩充到其他容器 和其他字符 用于编写查找替换功能
'--------------------------------------------------------------------------------------------
' 消除空行 , 利用instr函数, 搜索文...
如果Excel单元格内包含了
换行符
（又称，软空格，Chr(10),
vb
LF），则使用Len()函数统计单元格内
字符串
长度时，会包括
换行符
的长度。要在统计
字符串
长度时不考虑
换行符
，则需要在使用Len()函数前移除
换行符
，即将Chr(10)替换为空
字符串
""。
VB
A代码如下（虽然只有一行，调试也花了不少时间，但是作用却不小）Sub removeChr10()
Range("A2") = Replace...
关于
VB
中
Trim函数的说明Trim是
去掉
开头和结尾的空格！如："Map"&trim("3")&".map"结果是：Map3.map而trim("Map3.map")结果就是：Map3.map
trim()是
去除
字符串
头或尾部的空格，但不包含
中
间的空格。如： " hello world ".trim() = "hello world"
```
vb
.net
Dim myString As String = "Hello" &
vb
CrLf & "World"
myString = myString.Replace(
vb
CrLf, "")
这将把 `myString`
中
的
换行符
替换为空
字符串
，从而使 `myString` 只包含 "HelloWorld"。
