VBA宏定制需求：动态按色选单元格+替换插入行代码

1. 改造NewJobDefaultRowValues：动态选择筛选后的黄色条件格式单元格 #

将原宏中静态选择Range("A11:A19")的代码，替换为以下逻辑，自动捕获所有筛选后、通过条件格式显示为黄色的单元格：

Dim yellowCells As Range
Dim cell As Range

' 绑定目标工作表，这里假设是Sheet3，可按需修改
With Sheet3
    ' 遍历筛选后的可见单元格
    For Each cell In .UsedRange.SpecialCells(xlCellTypeVisible)
        ' 判断条件格式显示的背景色是否为黄色（RGB值可根据实际条件格式调整）
        If cell.DisplayFormat.Interior.Color = RGB(255, 255, 0) Then
            ' 逐步合并符合条件的单元格
            If yellowCells Is Nothing Then
                Set yellowCells = cell
            Else
                Set yellowCells = Union(yellowCells, cell)
            End If
        End If
    Next cell
End With

' 找到目标单元格后执行后续操作（保留你原宏的逻辑）
If Not yellowCells Is Nothing Then
    yellowCells.Select
    ' 这里放你原宏中对选中单元格的处理代码
End If

提示：如果你的条件格式黄色不是标准RGB(255,255,0)，可以通过cell.DisplayFormat.Interior.Color获取实际值替换。

2. 修改insertRowSheets：替换插入逻辑为复制Sheet3第226行插入 #

将原代码段：

ws.Activate
Rows(activeRow & ":" & activeRow + iCountRows - 1).Insert Shift:=xlDown

替换为以下代码，实现复制Sheet3第226行并批量插入到指定位置：

' 复制Sheet3第226行的内容
Sheet3.Rows(226).Copy

' 循环插入指定行数（iCountRows为原宏定义的插入行数）
For i = 1 To iCountRows
    ws.Rows(activeRow).Insert Shift:=xlDown
Next i

' 清除剪贴板，避免后续误操作
Application.CutCopyMode = False

3. 保留NewJobDefaultRowValues的AutoFill步骤 #

确保修改后的NewJobDefaultRowValues宏末尾，保留原有的公式行号对齐AutoFill代码，示例如下（根据你原宏的实际代码调整）：

' 原AutoFill逻辑示例，保留你的实际代码即可
Sheet3.Range("B226").AutoFill Destination:=Sheet3.Range("B226:B" & activeRow + iCountRows - 1), Type:=xlFillDefault

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