两表列相同，A~E列内容复制过去，解决有合并单元格的问题，是吗，可以复制值，语句为：Sheets("sheet2").Range("A2:E2").Value = Cells(RowNum,1).ReSize(1,5).Value
