【1】xls.[a1] 改为 xls.range(＂a1＂) 【2】 activesheet,这时是你 新建的 sheet,不是你有数据的sheet,可以先激活你有数据的sheet,如:workbooks(＂你有数据的工作表名＂).worksheets(1).active 然后再copy 或者在新建一个workbook之前
不用vba吧.筛选后,选中B列然后,ctrl+G定位条件,可见单元格再复制然后进入sheet2,粘贴
你应该判断你输入的数值等于列数,然后在进行复制的代码就可以了
选中合并单元格的数值,复制.在选中另一张表要放数值的地方,单击右键,选,选择性粘贴,在选,数值.确定 这样就只粘贴了数值不会粘贴格式,你另一张表的格式不会变 选中这些合并单元格,右键,复制;到另一张工作表,选中同样大小的单元格区域,右键,粘贴.方法很多的.(1)利用高级筛选,将记录筛出来,放在本工作表内,然后复制到别的工作表.这方法相对简单.(2)如果数据量少,可以利用函数.(3)透视表或者VBA编程
Worksheets(＂sheet1＂).Range(＂G:G＂).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Worksheets(＂sheet2＂).Range(＂A1＂), Unique:=True这一句代码是获得表1 GA使用工位 这列筛选条件列表,并复制到表2的A列,然后对此列依次
【1】xlS.[a1] 改为 xlS.Range(＂A1＂) 【2】 Activesheet,这时是你 新建的 Sheet,不是你有数据的Sheet,可以先激活你有数据的Sheet,如:Workbooks(＂你有数据的工作表名＂).Worksheets(1).Active 然后再Copy 或者在新建一个
就是录制一个宏,如 Sub NewFilter() Sheets(＂表2＂).Select Sheets(＂表1＂).Range(＂A2:Q164＂).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets _ (＂条件表＂).Range(＂B2:I4＂), CopyToRange:=Range(＂A2:Q2＂), Unique:=False End Sub
原表SHEET1 第一第二行表头,第三行开始是内容,3列内容 复制SHEET1 粘贴到SHEET2 SHEET3 ,保留SHEET2 SHEET3 表头,删除内容 SHEET2 A3输入公式 =IF(ISERR(INDEX(Sheet1!$A:$A,SMALL(IF(Sheet1!$B:$B<>＂A＂,＂＂,ROW(
高级筛选对话框中即有用关的选项,虽然只能复制到当前工作表,可以再手工复制或移动嘛 ;用自动筛选也可以再手工选择选剩的内容进行复制,很容易的嘛.
1、在excel中完成筛选2、选中要复制的区域3、点击菜单:编辑-定位-定位条件-可见单元格-确定4、复制5、粘贴