обрезка пробелов перед значениями

Question

У меня проблема с пробелами пробелов. Когда я ввожу значение и даю пробелы до и после значения в Excel, я вижу пробелы вокруг него, но я не должен видеть эти дополнительные пробелы.

Я хотел бы удалить эти пробелы, но я не уверен, как добиться этого, здесь есть выход, который я получаю в настоящее время:

ServerName = "  testing  "   

но генерируемый вывод должен быть таким .. .

ServerName = "testing" 

---

Вот код, который я использую в моем проекте:

If Sheets(Itm).Cells(i, 2) = "Required1" Then 
    MsgBox "Enter the value for required field : " & Sheets(Itm).Cells(i, 1) 
    Return 
End If 

Value = Replace(Sheets(Itm).Cells(i, 4).Value, vbLf, " ") 
'Value = Sheets(Itm).Cells(i, 4).Value 

Answer 1

Попробуйте это (непроверенные)

Value = Trim(Sheets(Itm).Cells(i, 4).Value) 
Value = Application.WorksheetFunction.Clean(Value) 
Print #1, Sheets(Itm).Cells(i, 1) & "=" & Value 

Вот пример кода, чтобы понять, как это работает ...

Sub sample() 
    Dim sample As String 

    sample = "Sid" 

    Debug.Print Len(sample) '<~~ This will give you 3 

    sample = " " & vbNewLine & sample & vbNewLine & vbCrLf & vbLf 

    Debug.Print Len(sample) '<~~ This will give you 11 

    sample = Trim(sample) 

    Debug.Print Len(sample) '<~~ This will give you 10 

    sample = Application.WorksheetFunction.Clean(sample) 

    Debug.Print Len(sample) '<~~ This will give you 3 
End Sub 

Answer 2

Заменить:

Print #1, Sheets(Itm).Cells(i, 1) & "=" & Value 

С:

Print #1, Replace(Sheets(Itm).Cells(i, 1) & "=" & Value," ","")