中間スペース、改行、トリムを取り除くための次のコードがあります
しかし、うまくいきTrim
ません。その理由は何ですか?
Sub Replace()
With Sheets("Input_Data").Range("A1:A6300")
'With Sheets("Input_Limits").Range("A1:A6300")
.Cells.Replace " ", " ", xlPart, xlByRows, False
.Cells.Replace vbLf, "", xlPart, xlByRows, False
'.Cells.Trim
End With
End Sub
それは与えます:
エラー - オブジェクトはこのプロパティ メソッドをサポートしていません