Question

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

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

Answer 1

对微软的了解不多，但在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

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

VB脚本空间

2 个答案: