VBA データのクレンジング　（空白、改行、タブを削除）

ExcelVBA 目次 - ray88’s diary
■データクレンジング部品

Function fncCleansingData(tempVal As Variant) As Variant
'-----------------------------------------------------
'機　能：受け取った値から半角全角スペースとタブ、改行を
'　　　削除して戻り値として返す
'引数１：クレンジング対象の値
'戻り値：クレンジング後データ（バリアント型）
'-----------------------------------------------------
    tempVal = Replace(tempVal, " ", "")     '半角スペース削除
    tempVal = Replace(tempVal, "　", "")    '全角スペース削除
    tempVal = Replace(tempVal, vbTab, "")   'タブ削除
    tempVal = Replace(tempVal, vbLf, "")    'セル内改行削除
    fncCleansingData = tempVal
End Function

■参考URL
【Excelマクロ】空白(スペース・タブ)と改行の全削除