如何用VBA根据行内指定空白单元格删除对应行指定区域并左移？

原代码存在的问题 #

• 字符串拼接语法错误：Range地址拼接时，冒号:需要用&和前后单元格地址连接，比如Range("TV" & i : "AUB" & i)是错误写法，正确格式应该用&连接所有字符串片段。
• 引号使用错误：第三处Range的结尾多了一个冗余引号，"CJN"&i")的写法会导致编译报错。
• 低效循环：固定循环到999999行会遍历大量空行，严重拖慢执行速度，应该获取数据实际最后一行来限制循环范围。
• 冗余的Select操作：使用Select选择区域再执行删除是冗余步骤，直接对Range对象操作更高效，也能避免选择类错误。

修正后的代码 #

Sub Deleteblanks()
    Dim i As Long
    Dim lastRow As Long
    
    ' 获取TV列最后一行有数据的行号，缩小循环范围
    lastRow = Cells(Rows.Count, "TV").End(xlUp).Row
    
    ' 从第2行遍历到数据最后一行
    For i = 2 To lastRow
        ' 判断当前行TV列单元格是否为空
        If IsEmpty(Range("TV" & i)) Then
            ' 直接操作目标区域，无需Select
            Range("TV" & i & ":" & "AUB" & i).Delete Shift:=xlToLeft
            Range("AOO" & i & ":" & "BOU" & i).Delete Shift:=xlToLeft
            Range("BJH" & i & ":" & "CJN" & i).Delete Shift:=xlToLeft
        End If
    Next i
    
    Range("A1").Select
End Sub

额外优化建议 #

• 若后续有整行删除需求，建议改为倒序循环（从lastRow到2），避免因行号变动导致漏处理。
• 可以在循环前添加Application.ScreenUpdating = False，循环结束后添加Application.ScreenUpdating = True，关闭屏幕刷新大幅提升执行速度。

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