代码调换位置即可
……
dr("金额") = sheet(n,9).text '所有行n,第10列填写
End If
Next
MessageBox.Show("本次成功合并了" & newcount & "条记录" ,"提示!") '提示
t.ResumeRedraw() '恢复绘制表
加好友 
发短信
Post By：2020/2/29 10:11:00 [只看该作者]
