当前位置：首页 → 问答吧 → replace用法求助！！！

replace用法求助！！！

时间：2011-08-04

来源：互联网

以下代码要实现工作表单元格前面的空格删除功能
单元格前空格数不完全相同，复制出来是个“？”
用trim 无法实现
用replace写如下代码还是无法实现
Sub Macro1()
For i = 2 To Sheets("板块导入").[a65536].End(xlUp).Row
   For j = 1 To Sheets("板块导入").Cells(1, 255).End(xlToLeft).Column
      Sheets("板块导入").Cells(i, j) = Replace(Sheets("板块导入").Cells(i, j), "?", "") ‘复制出来的空格是"？"
   Next j
  Next i

End Sub
请老师帮忙，先表示感谢。

附件

空格.rar(37.21 KB)

2011-8-4 18:03, 下载次数: 4

作者: iamzhb 发布时间: 2011-08-04

把他选择然后粘贴到替换选项框里就行了。不用vba就能解决

作者: guojianlin1985 发布时间: 2011-08-04

用excle内置的替换功能可以

复制内容到剪贴板

代码:

Sub Macro2()
Cells.Replace What:="?", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

作者: baomaboy 发布时间: 2011-08-04

Sub Macro2()
Cells.Replace What:="?", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub
怎么一运行，单元格就啥也没有了呢？

作者: iamzhb 发布时间: 2011-08-04

What:="?" 主要就是这个，录制的宏是这样的代码，可再次在同样的表上运行，就不对了，
把"?" 部分替换成复制过来的" ",执行完又没有效果，这是怎么回事呢？
请老师再帮看下,谢谢！！！！

作者: iamzhb 发布时间: 2011-08-04