Vbscript VB脚本空间
我需要一个vb脚本,将作为一个宏在excel中使用 我需要包含有空格的数据的行删除空格。我知道如何一次创建一个一级方程式单元格,但我不知道如何使用循环脚本大规模创建。任何帮助都将不胜感激 请尝试以下代码:Vbscript VB脚本空间,vbscript,Vbscript,我需要一个vb脚本,将作为一个宏在excel中使用 我需要包含有空格的数据的行删除空格。我知道如何一次创建一个一级方程式单元格,但我不知道如何使用循环脚本大规模创建。任何帮助都将不胜感激 请尝试以下代码: Columns("F:F").Select Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=F
Columns("F:F").Select
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
我尝试用none(“”)替换字符空格(“”)我对micro不太了解,但在vb脚本中,您可以使用以下代码:-
Option Explicit
Dim objFso,strFileName,objFile
Set objFso = CreateObject("Scripting.FileSystemObject")
strFileName="C:\Documents and Settings\amolc\Desktop\test.txt" ''Path of text file
Set objFile = objFso.OpenTextFile(strFileName,1)
strText = objFile.ReadAll
objFile.Close
strText = Replace(strText," ","",vbTextCompare) ''Replace function to remove space
Set objFile = objFso.OpenTextFile(strFileName,2)
objFile.Write (strText)
objFile.Close
您可以使用
Trim
对该列执行相同的操作。该函数将从该字符串的pre
和post
位置删除空格!我希望删除字符串中的空格。。所以‘PR026R’应该是‘PR026R’。让它查看列中的每一行并“修复”它。您想要哪一行?VBA还是VBScript?请更正您的标签。