Excel VBA导入CSV后单元格换行显示异常，双击才恢复正常

问题原因 #

1. 换行符格式不兼容：CSV文件中的换行通常是单独的vbLf（ASCII 10），但Excel单元格要正常显示换行，需要识别vbCrLf（ASCII 13+10）作为换行标记。此时编辑栏能解析单一换行符，但单元格视图无法识别，导致显示异常。
2. Excel未触发即时重绘：批量赋值单元格后，Excel可能不会立即刷新显示状态。双击单元格会强制触发单元格的重绘与格式校验，所以显示恢复正常。

解决方法 #

1. 统一换行符格式 #

修改赋值逻辑，将CSV中的单一vbLf替换为Excel兼容的vbCrLf。可以直接在赋值时处理，或者整合到ReplaceCharacters函数中：

' 单个单元格赋值时替换换行符
ws.Range("E" & LineRow).Value = Replace(ReplaceCharacters(LineItems(1)), vbLf, vbCrLf)
ws.Range("F" & LineRow).Value = Replace(ReplaceCharacters(LineItems(2)), vbLf, vbCrLf)
' 以此类推处理其他列

如果ReplaceCharacters是自定义函数，建议在函数内部添加换行符替换逻辑，避免重复代码：

Function ReplaceCharacters(inputStr As String) As String
    ' 原有替换逻辑
    ' ...
    ' 添加换行符替换
    inputStr = Replace(inputStr, vbLf, vbCrLf)
    ReplaceCharacters = inputStr
End Function

2. 强制触发Excel重绘/重算 #

若换行符已正确，但显示仍异常，可在导入完成后执行以下代码强制刷新：

' 强制重算工作表
ws.Calculate
' 刷新屏幕显示
Application.ScreenUpdating = True
Application.ScreenUpdating = False
Application.ScreenUpdating = True

' 或者对目标区域触发重绘
Dim targetRange As Range
Set targetRange = ws.Range("E2:L" & ws.Cells(ws.Rows.Count, "E").End(xlUp).Row)
targetRange.Value = targetRange.Value

3. 优化批量赋值方式 #

逐个单元格赋值效率低且易引发显示问题，建议改用数组批量写入：

Dim rowData(1 To 1, 1 To 8) As Variant
Dim i As Integer

' 整理一行数据，同时替换换行符
For i = 1 To 8
    rowData(1, i) = Replace(ReplaceCharacters(LineItems(i)), vbLf, vbCrLf)
Next i

' 批量写入一行到E-L列
ws.Range("E" & LineRow & ":L" & LineRow).Value = rowData

4. 确保格式设置生效 #

虽然已开启自动换行和自动行高，可在导入完成后重新应用一次格式，避免格式未正确绑定：

With ws.Range("E:L")
    .WrapText = True
    .EntireRow.AutoFit
End With

内容的提问来源于stack exchange，提问作者Alex Lynn