Sheet(4,22).Value = "<结算单编号 = " & nm("结算单编号")(i) & ">"
改成
Sheet(4,22).Value = "<结算单编号 = '" & nm("结算单编号")(i) & "'>"