主要观点总结
文章介绍了一个使用Excel VBA脚本进行多工作表数据搜索与复制的例子。脚本能够搜索除“汇总表”外的其他工作表中的特定数据，在满足特定条件的情况下将数据行复制到“汇总表”。
关键观点总结
关键观点1: 脚本功能描述
该脚本实现了在工作簿中多个工作表内搜索特定数据，并将满足特定条件的行复制到指定工作表的功能。
关键观点2: 搜索和复制流程
脚本首先弹出一个信息框要求用户输入要搜索的数据，然后在工作簿中除“汇总表”外的其他工作表的第7列搜索此数据。如果找到匹配数据，会判断该行第6列的数值是否大于0，若大于0则将该行复制到“汇总表”中。
关键观点3: 技术交流和获取更多资料
文章鼓励读者在知识星球的完美Excel社群中进行技术交流和提问，获取更多电子资料，并通过社群加入微信讨论群，方便进一步交流和学习。
文章预览
学习Excel技术，关注微信公众号： excelperfect 标签： VBA 下面的示例搜索工作簿中除工作表“汇总表”外的多个工作表中的数据，将满足条件的数据所在行复制到指定工作表。 Sub SearchAndCombineSheets() Dim FirstAddress As String Dim WhatFor As String Dim c As Range Dim ws As Worksheet WhatFor = InputBox("搜索什么数据?", "搜索条件") If WhatFor = Empty Then Exit Sub For Each ws In Worksheets If ws.Name < > "汇总表" Then With ws.Columns(7) Set c = .Find(WhatFor, LookIn:=xlValues, LookAt:=xlPart) If Not c Is Nothing Then FirstAddress = c.Address Do If c.EntireRow.Cells(1, 6).Value > 0 Then c.EntireRow.Copy Destination : =Worksheets("汇总表").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) End If Set c = .FindNext(c)
………………………………
