Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 11 And Range("K" & Target.Row) = "" Then '当K列某单元格只是修改数据原有数据都保持不变 If Range("C" & Target.Row) = Range("C" & Target.Row - 1) Then 'C列单元格其上一行的单元格相等时 If Range("E" & Target.Row) = "" Then '如果本行的 E、F、G、H、I列中是空白时则这些单元格则等于上一单元格; Range("E" & Target.Row & ":I" & Target.Row).Value = Range("E" & Target.Row - 1 & ":I" & Target.Row - 1).Value End If End If End If End Sub
温馨提示:答案为网友推荐,仅供参考