【メモ】ExcelをPDF化したときに、改行位置に空白スペースのようなの四角が表示されるのを解消する

vba

Sub Replace()

On Error GoTo ERR

    Dim OpenFileName As String
    OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls*")
    If OpenFileName <> "False" Then
        Workbooks.Open OpenFileName
    End If
    
    Dim i As Integer
    Dim sheetCnt As Integer

    sheetCnt = ActiveWorkbook.Sheets.Count
    
    i = 1
    
    Do While i < sheetCnt
    
        Worksheets(i).Cells.Replace What:=vbCrLf, Replacement:=vbLf, LookAt:=xlPart, ReplaceFormat:=False
    
        i = i + 1
    Loop
    
GoTo OWARI

ERR:
MsgBox ("エラーが発生しました。エラーの原因がわからない場合はお手数ですが、作成者までご連絡ください。")
Exit Sub

OWARI:
MsgBox ("処理が完了しました。")
    
    
End Sub