Vbscript VB脚本空间

Vbscript VB脚本空间,vbscript,Vbscript,我需要一个vb脚本,将作为一个宏在excel中使用 我需要包含有空格的数据的行删除空格。我知道如何一次创建一个一级方程式单元格,但我不知道如何使用循环脚本大规模创建。任何帮助都将不胜感激 请尝试以下代码: Columns("F:F").Select Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=F

我需要一个vb脚本,将作为一个宏在excel中使用

我需要包含有空格的数据的行删除空格。我知道如何一次创建一个一级方程式单元格,但我不知道如何使用循环脚本大规模创建。任何帮助都将不胜感激

请尝试以下代码:

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?请更正您的标签。