Excel VBA实现E/F列文本单元格移动至A列保留行其他内容

• 核心目标：将工作表E、F两列中所有包含文本的单元格内容移动至同行A列，保持每行其余内容不变
• 原有代码存在的问题：
  • 文本判断逻辑错误：IsText是工作表函数，不能直接通过cell.value = IsText的写法判断单元格内容类型
  • 遍历范围写死为2-1000行，既可能漏过超过1000行的数据，又会在数据量较小时遍历大量空白单元格，运行效率低
  • 仅处理了E列，未覆盖需求中提到的F列，且复制内容后未清空原单元格，不符合“移动”的要求

Sub MoveJobFunctions()
    Dim lastRow As Long
    Dim i As Long
    
    ' 关闭屏幕更新，大幅提升大数据量下的运行速度
    Application.ScreenUpdating = False
    
    ' 动态获取E、F两列最后有数据的行号，取最大值作为遍历终点，避免漏数或遍历空白行
    lastRow = Application.Max( _
        Cells(Rows.Count, "E").End(xlUp).Row, _
        Cells(Rows.Count, "F").End(xlUp).Row _
    )
    
    ' 从第2行开始遍历，默认第1行为表头
    For i = 2 To lastRow
        ' 处理E列文本
        If Application.IsText(Range("E" & i)) Then
            Range("A" & i).Value = Range("E" & i).Value
            Range("E" & i).ClearContents ' 清空原单元格，完成移动而非复制
        End If
        
        ' 处理F列文本
        If Application.IsText(Range("F" & i)) Then
            Range("A" & i).Value = Range("F" & i).Value
            Range("F" & i).ClearContents
        End If
    Next i
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
End Sub

• 动态行号获取：通过End(xlUp)方法从列底部向上定位第一个有内容的单元格，自动适配不同数据量的工作表，无多余遍历
• 文本判断：使用Application.IsText(单元格对象)正确识别文本类型单元格，支持任意文本内容匹配，不需要指定特定字符串
• 扩展说明：如果同一行的E、F列同时存在文本，上述代码默认F列内容覆盖A列内容；如果需要保留两列的所有内容，可将赋值语句修改为拼接格式，例如Range("A" & i).Value = Range("E" & i).Value & " " & Range("F" & i).Value

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