excel vba 当前单元格如何去掉单元格中的空格

来源：蜘蛛抓取(WebSpider) 时间：2017-12-24 19:48 标签： excel vba 当前单元格
VBA高手请进！怎么去掉单元格字符串首未空格？_百度知道
VBA高手请进！怎么去掉单元格字符串首未空格？
有的首位有两个空格……有的没有空格好几个单元格有字符串。(首未空格数不一样)，中间有空格的话不要去掉。必须用VBA代码。高手帮忙吧，有的首位有一个空格。字符串尾部也是
我有更好的答案
是去除字符首位的空格（不论有几个空格）RTRIM()
是去除字符尾部的空格（不论有几个空格）如二楼的回答，把Trim(c.Value)
改成 LTrim(RTrim(c。要用LTRIM函数、RTRIM函数组合使用不能用TRIM函数，不然全部空格都会删除
一个单元格的怎么写？比如：去掉ActiveSheet.Cells(1, 1)的话怎么写？
采纳率：51%
来自团队：
SelectFor Each c In Selection
c.Value = Trim(c;, vbOKOnlyEnd Subtrim()函数Sub DTrim()Dim c As RangeIf MsgBox(&请确认已选择所要更改区域中任意一个单元格！&.Value)Next cMsgBox &Done!&quot, vbYesNo + vbExclamation) = vbNo Then Exit SubSelection.CurrentRegion
就一个Trim函数即可
为您推荐：
其他类似问题
vba的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。查看: 6110|回复: 11
单元格内容多了一个隐藏的“空格”，请教如何去掉。
阅读权限10
在线时间 小时
& & & & & & & &
我从某个系统里面导出一个excel表，但发现A列所有姓名都多了一个隐藏的空格，这个隐藏的空格很隐蔽，直接复制粘贴还发现不了，必须双击A2（举例说明）进去，然后全选内容（最好从右往左选黑内容），复制，在一个空的单元格粘贴就会发现了（如果双击一个空的单元格粘贴，就会发现内容前面多了一个空格；如果直接点一个单元格粘贴，会发现复制后内容往右移动了一格）。
请问这是怎么回事，A列的单元格多了一个什么控制符，如何删除。谢谢。。。
23:12 上传
点击文件名下载附件
3.09 KB, 下载次数: 28
阅读权限150
在线时间 小时
& & & & & & & &
Sub 删除非法字符()
Application.Calculation = xlCalculationManual& && & '手动重算
On Error Resume Next& &&&'忽略错误继续执行VBA代码,避免出现错误消息
For Each r In ActiveSheet.UsedRange& & '数组方式——将当前工作表所有单元纳入数组
& & a = r.Row
& & b = r.Column
& & If Cells(a, b) && Application.WorksheetFunction.Substitute(Cells(a, b), ChrB(160), &&) _
& & Or Cells(a, b) && Application.WorksheetFunction.Substitute(Cells(a, b), Chr(9), &&) Then& && & '判断单元是否包含非法字符
& && &&&Cells(a, b) = Application.WorksheetFunction.Substitute(Cells(a, b), ChrB(160), &&)& &'替换特殊字符
& && &&&Cells(a, b) = Application.WorksheetFunction.Substitute(Cells(a, b), Chr(9), &&)& & '替换特殊字符
& && &&&Cells(a, b).Interior.ColorIndex = 35& & '单元颜色浅绿
& & End If
On Error GoTo 0& & '恢复正常的错误提示
Application.Calculation = xlCalculationAutomatic& & '自动重算
阅读权限50
在线时间 小时
没看见有空格吗，如果有可以用查找空格，然后用空白替换，
另外还可以用trim函数去除空格，在用复制选择性粘贴选择值
阅读权限95
在线时间 小时
=RIGHT(A2,LEN(A2)-1)
阅读权限150
在线时间 小时
(7.67 KB, 下载次数: 34)
23:28 上传
点击文件名下载附件
阅读权限10
在线时间 小时
原帖由 LangQueS 于
23:27 发表
Sub 删除非法字符()
Application.Calculation = xlCalculationManual& && & '手动重算
On Error Resume Next& &&&'忽略错误继续执行VBA代码,避免出现错误消息
For Each r In ActiveSheet.UsedRange& & '数组方式— ...
谢谢，不过你的方案太高了～～要好好琢磨～
阅读权限100
在线时间 小时
Option Explicit
& & Dim RegEx, x%
& & Set RegEx = CreateObject(&VBSCRIPT.REGEXP&)
& & [b:b].ClearContents
& & With RegEx
& && &&&.Global = True
& && &&&.Pattern = &[\s]&
& && &&&For x = 1 To [a65536].End(xlUp).Row
& && && && &Cells(x, 2) = .Replace(Cells(x, 1), &&)
& && &&&Next x
& & End With
& & Set RegEx = Nothing
呵呵，学习正则
阅读权限10
在线时间 小时
原帖由 lb_bn 于
23:27 发表
=RIGHT(A2,LEN(A2)-1)
简单明了，谢谢帮助～
阅读权限100
在线时间 小时
[em01]&&可以参看附件
17:31 上传
点击文件名下载附件
10.37 KB, 下载次数: 50
阅读权限20
在线时间 小时
作个记号。
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 1657|回复: 5
如何用VBA去除单元格中的空格，我用几种方法都没有用
阅读权限20
在线时间 小时
请教大家一个问题，我写了一个程序，去除单元格中的空格，为什么去除不掉呢？
(43.24 KB, 下载次数: 24)
17:14 上传
点击文件名下载附件
&&For i = 7 To Sheets(&CheInTxt&).Range(&A65536&).End(xlUp).Row
& & DocCheID(i) = Replace(Sheets(&Che&).Cells(i, 1), & &, &&)
& & If Right(DocCheID(i), 1) = & & Then DocCheID(i) = Left(DocCheID(i), Len(DocCheID(i)) - 1)
& & If Left(DocCheID(i), 1) = & & Then DocCheID(i) = Right(DocCheID(i), Len(DocCheID(i)) - 1)
即使执行了上句，DocCheID(7)的最后一个字符还是空格，我们可以从IntTemp1 = Len(DocCheID(i))得到长度是9，但是按照道理说长度应该是8才对啊。
请大侠指教。谢谢。
阅读权限20
在线时间 小时
请哪个大侠指点，比较着急。
阅读权限90
在线时间 小时
删除代码，说明要求。
阅读权限70
在线时间 小时
后面一个是回车符 VBCR&&
用下面这句代码，把你原来那三句换掉。
DocCheID(i) = Trim(Replace(Sheets(&Che&).Cells(i, 1), vbCr, &&))
TRIM&&可以去掉字符串首尾的所有空格。
阅读权限95
在线时间 小时
这代码看着怎么这么乱啊。
阅读权限20
在线时间 小时
后面一个是回车符 VBCR&&
用下面这句代码，把你原来那三句换掉。
谢谢大侠。我终于可以继续工作了。
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师如何批量去除EXCEL单元格中的空格字符_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
如何批量去除EXCEL单元格中的空格字符
&&如何批量去除excel单元格中的空格字符
阅读已结束，下载文档到电脑
想免费下载更多文档？
定制HR最喜欢的简历
你可能喜欢

我要回帖

更多关于 excel vba 当前单元格 的文章

 

随机推荐