Sub test1() Dim h Dim j As Integer j = 0 '用于辅助循环的进行,可以在拆分行获取下一个需要拆分单元格的行号 'Application.ScreenUpdating = False 'For i = 1 To Range("a65536").End(xlUp).Row For i = 1 To 50 '循环结束值至少等于拆分后的行数,否则会没有分完就跳出循环,导致最后部分无法拆分 'MsgBox
-------> 效果:点击右下角单元格,左下角单元格内容被替换成和左上角相同,如上图所示. 实现方式:分别获取各个节点,并将左边节点的内容修改成左上方节点的内容. 代码: 注意的地方: 如果html部分写成如下格式,则无法得到目标的效果. 为了说明这个问题的原因,可以通过获取第一个tr的第一个子节点的类型来说明. 获取第一个tr的第一个子节点类型: var n = document.getElementsByTagName('tr')[0].firstChild.nodeName; a