求一用于EXCEL中处理数据的宏代码!答:Sub 替换()Dim rg, cel As Object Set rg = Application.InputBox("请选择第一列姓名", , "range", , , , , 8)For Each cel In rg If cel = "张三" And cel.Offset(, 1) = "张三丰" Then cel.Offset(, 1) = cel.Offset(, 2): cel.Offset(, 2) = "三四"If cel = "...