给你个最实用的代码吧 用单元格已使用区域Copy到新的表中用下面代码要指明第左上解单元格要复制表的区域.Copy Destination:=接收复制表的左上角单元格如把SHEET1中的已使用区域复制到SHEET2中 以SHEET2的A1单元格为起来粘贴进SHEET2 Dim myRange1 As RangeDim myRange2 As RangeSet myRange1 = Sheets1.UsedRangeSet myRange2 = Sheets2.Range(“A1”) myRange1.Copy Destination:=myRange2 删除行得用循环 加 条件加行删除就OK了
900字范文,内容丰富有趣,生活中的好帮手!