如何在Excel VBA中合并删行与修改H列单元格的两个宏命令

直接将两个操作按执行顺序放到同一个宏过程中即可，我顺便修复了你原代码里的几个潜在bug：

• 原删行代码的判断条件和你描述的需求不一致：你文字说明G列匹配值为online，但代码里写的是Competi，整合代码默认按你描述的需求写，需要匹配其他值直接改判断条件即可
• 原重命名代码里的lastrow、clastrow变量未提前赋值，运行会直接报错
• 原代码用Integer类型存行号，数据量超过32767行会出现溢出报错，统一改用Long类型
• 删行完成后重新计算最新数据范围，避免删行后范围错位导致漏处理数据

整合后完整代码 #

Sub RunAllTask()
    Dim i As Long, LastRow As Long
    Dim cell As Range
    Dim ws As Worksheet
    
    ' 绑定当前操作的工作表，避免切换窗口导致操作错表
    Set ws = ActiveSheet
    
    ' 第一步：删除符合条件的行
    LastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    ' 倒序遍历避免删行导致行号错位
    For i = LastRow To 1 Step -1
        If ws.Cells(i, "G").Value = "online" And ws.Cells(i, "Q").Value = "BBC" Then
            ws.Rows(i).Delete
        End If
    Next i
    
    ' 第二步：替换H列指定内容
    ' 删行后重新获取H列最后一行行号，确定处理范围
    LastRow = ws.Cells(ws.Rows.Count, "H").End(xlUp).Row
    ' 如果第一行是表头，把下面代码里的H1改成H2即可跳过表头
    For Each cell In ws.Range("H1:H" & LastRow)
        Select Case cell.Value
            Case "sport"
                cell.Value = "(sport)"
            Case "politics"
                cell.Value = "(politics)"
            Case "weather"
                cell.Value = "(weather)"
        End Select
    Next cell
End Sub

使用说明 #

• 打开Excel按Alt+F11进入VBA编辑器，把代码粘贴到对应工作表的模块里，运行RunAllTask宏即可一次性完成两个操作
• 如果需要调整删行匹配值、H列替换的映射关系，直接改对应Case或者If判断里的字符串即可
• 如果需要固定操作某一个工作表，不用当前激活的表，可以把Set ws = ActiveSheet改成Set ws = Sheets("你的工作表名")

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