vbscript - VB スクリプト スペース

Question

Excelでマクロとして使用されるvbスクリプトが必要です。

スペースを削除するには、スペースのあるデータを含む行が必要です。一度に1つのセルで数式を作成する方法は知っていますが、ループスクリプトを使用して大規模にこれを行う方法についてはわかりません。どんな助けでも大歓迎です。

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

文字スペース (" ") をなし ("") に置き換えようとしています