给你个最实用的代码吧 用单元格已使用区域Copy到新的表中 用下面代码要指明第左上解单元格 要复制表的区域.Copy Destination:=接收复制表的左上角单元格 如 把SHEET1中的已使用区域复制到SHEET2中 以SHEET2的A1单元格为起来粘贴进SHEET2 Dim myRange1 As Range Dim myRange2 As Range Set myRange1 = Sheets1.UsedRange Set myRange2 = Sheets2.Range(＂A1＂) myRange1.Copy Destination:=myRange2 删除行得用循环 加 条件加行删除就OK了

这样写代码就可以:Sheets(1).range(＂a1＂).Copy Sheets(2).range(＂b2＂)注意复制的区域要相同,一格是没问题的,主要没有合并单元格

例如:Sheet1.range(＂a1＂)=sheet2.range(＂c1＂) 拷贝一个单元格 Sheet1.range(＂a1:c5＂).copy sheet2.range(＂f1＂) 拷贝一块

Sub 宏1() Dim RNG2 As Range With Sheets(＂生成＂) For Each RNG2 In .Range(＂C6:W80＂) If RNG2.HasFormula = False Then RNG2.Copy Destination:=Sheets(＂上报＂).Range(RNG2.Address) Next RNG2 End With End Sub

以下VBA代码可实现将Sheet1内容全部复制至Sheet2:工作原理很简单(选择-复制-激活-选择定位-粘贴).Sub imS() Sheets(＂Sheet1＂).Activate Cells.Select Selection.Copy Sheets(＂Sheet2＂).Activate Range(＂A1＂).Select ActiveSheet.Paste End Sub

a列是否有重复,没有重复用公式就可以.=offset(sheet2!$ac$2,match(a2,sheet2!$a$2:$a$100,0),)

sub 宏1()dim rng2 as rangewith sheets(＂生成＂) for each rng2 in .range(＂c6:w80＂) if rng2.hasformula = false then rng2.copy destination:=sheets(＂上报＂).range(rng2.address) next rng2end withend sub

例如,你要复制从A1到A3单元格的内容到表格B的C1到C3的位置,可以用以下代码,其他情况可以类推: Range(＂A1:A3＂).Select Selection.Copy Sheets(＂B＂).Select Range(＂C1＂).Select ActiveSheet.Paste

选中合并单元格的数值,复制.在选中另一张表要放数值的地方,单击右键,选,选择性粘贴,在选,数值.确定 这样就只粘贴了数值不会粘贴格式,你另一张表的格式不会变 选中这些合并单元格,右键,复制;到另一张工作表,选中同样大小的单元格区域,右键,粘贴.方法很多的.(1)利用高级筛选,将记录筛出来,放在本工作表内,然后复制到别的工作表.这方法相对简单.(2)如果数据量少,可以利用函数.(3)透视表或者VBA编程

Sub s() arr = Workbooks(＂we1.xlsx＂).Sheets(＂Sheet1＂).[c6:k14] Workbooks(＂er1.xlsx＂).Sheets(＂sheet010＂).[F16:O24] = arr End Sub