如何让VBA的TRIM函数仅处理含前一日日期的行？

直接给你修改好的代码，核心是在循环里加日期判断逻辑，同时优化了一些容易踩坑的细节：

Sub TrimText()
    Dim lRow As Long
    Dim prevDay As Date
    
    ' 自动获取前一日日期，无需手动修改日期
    prevDay = Date - 1
    
    With Worksheets("Data")
        ' 从G列底部往上定位最后一行，避免中间有空行导致漏处理
        lRow = .Cells(.Rows.Count, "G").End(xlUp).Row
        
        For i = 2 To lRow
            ' 先判断G列单元格是否为有效日期，防止非日期内容触发报错
            If IsDate(.Cells(i, "G").Value) Then
                ' 仅当G列日期匹配前一日时，对A列执行TRIM操作
                If CDate(.Cells(i, "G").Value) = prevDay Then
                    .Cells(i, "A").Value = Trim(.Cells(i, "A").Value)
                End If
            End If
        Next i
    End With
End Sub

关键说明： #

• 把lRow的类型从Integer换成Long：Excel最大行数可达1048576，而Integer的上限仅为32767，用Long不会出现溢出问题
• 更换最后一行的定位方式：原代码从A列查找可能因A列存在空行导致少遍历数据，现在从G列查找更准确，毕竟我们要判断的是G列的日期
• 添加日期有效性判断：如果G列存在非日期内容，不会触发运行错误
• 自动计算前一日：Date - 1会自动处理月末、年末的日期跳转，比如1月1日的前一日会自动变为去年12月31日

如果你的G列日期是文本格式（非Excel自带的日期格式），可以把日期判断部分改成以下代码，确保能正确识别文本格式的日期：

If CDate(.Cells(i, "G").Text) = prevDay Then

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