VB脚本空间

Question

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

我需要数据有空格的行才能删除空格。我知道如何一次创建一个公式单元，但我无法知道如何用循环脚本大规模地完成此任务。任何帮助，将不胜感激。

Answer 1

试试这个代码：

Columns("F:F").Select 

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

我试试“用无（‘）来代替空格字符（’）”

Answer 2

不很了解的万分之一，但在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