-> step 1:新建宏,进入编辑,使用如下代码: Sub Ss()Dim c As RangeFor Each c In ActiveSheet.UsedRange i = 1 While InStr(i, c, "木木", 0) > 0 i0 = InStr(i, c, "木木", 0) If i0 > 0 Then c.Characters(i0, 2).Font.Color = vbRed: i = i0 + 2 Wend NextEnd
-------> 效果:点击右下角单元格,左下角单元格内容被替换成和左上角相同,如上图所示. 实现方式:分别获取各个节点,并将左边节点的内容修改成左上方节点的内容. 代码: 注意的地方: 如果html部分写成如下格式,则无法得到目标的效果. 为了说明这个问题的原因,可以通过获取第一个tr的第一个子节点的类型来说明. 获取第一个tr的第一个子节点类型: var n = document.getElementsByTagName('tr')[0].firstChild.nodeName; a