4个回答
2015-09-28 · 知道合伙人数码行家
关注
展开全部
EXCEL中怎样从多个工作表中选出满足条件的所有行,并生成一个新表的解决方法如下:
1、打开要处理的excel文档,
2、按alt+f11,打开vba编辑窗口,
3、双击左侧的this sheet,
4、在右侧的空白中输入下面的程序
Sub liyoushang()
Sheets(Sheets.Count).Cells.ClearContents
k = 1
For i = 1 To Sheets.Count - 1
For j = 1 To Sheets(i).Range("a6000").End(xlUp).Row
If WorksheetFunction.Trim(Sheets(i).Cells(j, 2).Text) = "B" Then 'B指公司名称,在此做相应替换
Sheets(i).Rows(j).Copy _
Destination:=Sheets(Sheets.Count).Cells(k, 1)
k = k + 1
End If
Next
Next
End Sub
5、点击工具栏中的执行,
这样就可以了。
1、打开要处理的excel文档,
2、按alt+f11,打开vba编辑窗口,
3、双击左侧的this sheet,
4、在右侧的空白中输入下面的程序
Sub liyoushang()
Sheets(Sheets.Count).Cells.ClearContents
k = 1
For i = 1 To Sheets.Count - 1
For j = 1 To Sheets(i).Range("a6000").End(xlUp).Row
If WorksheetFunction.Trim(Sheets(i).Cells(j, 2).Text) = "B" Then 'B指公司名称,在此做相应替换
Sheets(i).Rows(j).Copy _
Destination:=Sheets(Sheets.Count).Cells(k, 1)
k = k + 1
End If
Next
Next
End Sub
5、点击工具栏中的执行,
这样就可以了。
展开全部
用vba,简单说哈方法,宏新建工作表,修改工作表名,宏设置样表,再按名称导入数据
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
可以用VBA做
但你提供的截图不完整,只能给你个示例证明可以做到
已上传附件,适用于excel2007及以上版本
点击按钮即可验证
回答这种描述不清的问题会影响采纳率
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你这想多了,要是excel能干这个,就没有人去开发数据处理软件了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询