求助：完善VBA代码实现插入行后的合并与格式设置功能

Private Sub worksheet_change(ByVal target As Range)
    ' 关闭事件触发，避免插入行时重复触发Worksheet_Change
    Application.EnableEvents = False
    
    If target.Column = 20 Then
        If target.Value = "Yes" Then
            Dim newRow As Range
            ' 插入新行并获取新行对象
            Rows(target.Row + 1).Insert
            Set newRow = Rows(target.Row + 1)
            
            ' 合并新行的D列到X列
            newRow.Range("D1:X1").Merge
            
            ' 设置单元格填充色为浅灰色（ColorIndex=15）
            newRow.Range("D1:X1").Interior.ColorIndex = 15
            
            ' 自动调整行高
            newRow.AutoFit
        End If
    End If
    
    ' 恢复事件触发
    Application.EnableEvents = True
End Sub

关键改动说明 #

• 避免事件循环：加入Application.EnableEvents = False和恢复代码，因为插入行操作会再次触发Worksheet_Change事件，导致代码重复执行甚至报错。
• 合并指定列：通过newRow.Range("D1:X1")定位新行的D到X列，调用Merge完成合并。
• 设置填充颜色：使用Interior.ColorIndex = 15设置浅灰色，这是Excel内置的颜色索引值。
• 自动调整行高：调用AutoFit让新行根据内容自动适配高度。

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