vbscript - VB 脚本空间

Question

我需要一个将在 excel 中用作宏的 vb 脚本。

我需要带有空格的数据行来删除空格。我知道如何一次创建一个单元格的公式，但我对如何使用循环脚本大规模地执行此操作一无所知。任何帮助，将不胜感激。

Answer 1

对 micros 不太了解，但在 vb-script 中，您可以使用以下代码：-

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

Answer 2

试试这个代码：

Columns("F:F").Select

Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False

我尝试用无（“”）替换字符空间（“”）