>>221
こゆう事かな?(同じパラメータは　最後のに置き換えられるよ)
下をそっくり入れ替えて

　'同じ名前の子ノードを 最初の一つに集約
　For Each Node1 In Node.ChildNodes
　　Do
　　　　　Set NodeList = Node1.ParentNode.SelectNodes(Node1.nodeName)
　　　　　If NodeList.Length = 1 Then Exit Do
　　　　　For Each Node2 In NodeList(1).ChildNodes
　　　　　　　NodeList(0).appendChild Node2
　　　　　Next
　　　　　'パラメータコピー
　　　　　For Each NodeAttr In NodeList(1).Attributes
　　　　　　NodeList(0).Attributes.setNamedItem NodeAttr.CloneNode(True)
　　　　　Next
　　　　　Node1.ParentNode.RemoveChild NodeList(1)
　　Loop
　Next