Excelに貼り付けた外部コードに潜む「見えない文字」をクリーンアップするVBAテクニック

' ==========================================================
' GetCleanCellValue
' 概要  : 指定シートの指定セル（行・列）の値を取得し、
'         パースに適した形へクリーニングして返す。
'
' 引数  :
'   ws               - 対象ワークシート
'   rowIndex         - 対象行番号（Long）
'   colIndex         - 対象列番号（Long）
'   doCompressSpaces - True: 連続スペースを1つに圧縮（Excel TRIM）
'   doTrimEnds       - True: 前後スペースを削除（VB Trim）
'
' 戻り値 :
'   String - クリーニング済み文字列
' ==========================================================
Public Function GetCleanCellValue(ws As Worksheet, _
                                  ByVal rowIndex As Long, _
                                  ByVal colIndex As Long, _
                                  Optional ByVal doCompressSpaces As Boolean = True, _
                                  Optional ByVal doTrimEnds As Boolean = True _
                                  ) As String
    Dim cellValue As String
    
    ' --- 対象セル取得 ---
    On Error Resume Next
    cellValue = CStr(ws.Cells(rowIndex, colIndex).Value)
    On Error GoTo 0
    
    If LenB(cellValue) = 0 Then
        GetCleanCellValue = cellValue
        Exit Function
    End If
    
    ' --- 文字列クリーニング処理 ---
    
    ' BOM / ゼロ幅ノーブレークスペース削除
    cellValue = Replace$(cellValue, ChrW(&HFEFF), "")
    
    ' NBSP（ノーブレークスペース）→ 通常スペース
    cellValue = Replace$(cellValue, ChrW(160), " ")
    
    ' タブ → スペース
    cellValue = Replace$(cellValue, vbTab, " ")
    
    ' 非印字ASCII削除
    cellValue = WorksheetFunction.Clean(cellValue)
    
    ' --- スペース関連処理（引数で制御） ---
    
    ' 連続スペースを1つに（Excel TRIM）
    If doCompressSpaces Then
        cellValue = Application.WorksheetFunction.Trim(cellValue)
    End If
    
    ' 前後スペース削除（VB Trim）
    If doTrimEnds Then
        cellValue = Trim$(cellValue)
    End If

    GetCleanCellValue = cellValue
End Function