VBA生成单元格字符串首行出现换行符的去除问题

问题根源 #

你的代码中，首次给grantc赋值时，部分分支逻辑错误地在开头插入了vbNewLine，再加上LTrim只能去除空格无法处理换行符，最终导致首行出现空行。

两种修复方案 #

方案1：调整拼接逻辑，从根源避免空行

修改赋值规则：第一个资助项直接赋值给grantc，后续项再在前面添加换行符，同时优化代码去掉不必要的Select操作（直接引用工作表对象更高效稳定）：

If Cells(fila, col) = "x" Or Cells(fila, col) = "X" Then
    ' 直接定义工作表对象，无需切换选择
    Dim wsGrants As Worksheet, wsProjects As Worksheet
    Set wsGrants = ThisWorkbook.Sheets("Grants")
    Set wsProjects = ThisWorkbook.Sheets("Projects")
    
    col2 = col - 10
    Dim targetCol As Range
    Set targetCol = wsGrants.Columns(col2)
    
    If targetCol.Cells(2).Value <> "" Then
        lrow2 = targetCol.Cells(wsGrants.Rows.Count).End(xlUp).Row
        ' 遍历当前列所有资助项目
        For fila2 = 2 To lrow2
            grantr = targetCol.Cells(fila2).Value
            ' 检查是否已存在，避免重复
            If InStr(LCase(grantc), LCase(grantr)) = 0 Then
                If grantc = "" Then
                    grantc = grantr ' 第一个项目直接赋值，不加换行
                Else
                    grantc = grantc & vbNewLine & grantr ' 后续项目前加换行
                End If
            End If
        Next fila2
        
        ' 写入目标单元格
        If wsProjects.Cells(fila, lcol).Value = "" Then
            wsProjects.Cells(fila, lcol).Value = grantc
        End If
    End If
End If

方案2：事后清理首行换行符

如果不想大幅修改原有代码，可在将grantc写入单元格前，添加一段代码去除开头的换行符：

' 写入单元格前执行这段清理
If Left(grantc, Len(vbNewLine)) = vbNewLine Then
    grantc = Mid(grantc, Len(vbNewLine) + 1)
End If
' 或者更简洁的写法
grantc = Replace(grantc, vbNewLine, "", 1, 1)

注：Replace的最后一个参数1表示仅替换开头第一个匹配的换行符，不会影响后续内容。

额外优化建议 #

• 尽量避免使用Select切换工作表，直接通过工作表对象引用单元格，代码运行效率更高且不易出错。
• 若数据量较大，可使用Dictionary存储已添加的资助项目，比InStr判断重复的效率提升明显。

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