Excel VBA搜索多个工作表并将所选行粘贴到摘要工作表
Excel VBA是一种用于自动化Excel操作的编程语言，它可以帮助用户实现各种复杂的任务和操作。在搜索多个工作表并将所选行粘贴到摘要工作表的情况下，可以使用以下代码来实现：
Sub SearchAndCopy()
Dim ws As Worksheet ' 工作表对象
Dim summaryWs As Worksheet ' 摘要工作表对象
Dim searchRange As Range ' 搜索范围
Dim copyRange As Range ' 复制范围
Dim pasteRow As Long ' 粘贴行数
Dim cell As Range ' 单元格对象
' 设置摘要工作表
Set summaryWs = ThisWorkbook.Sheets("摘要工作表")
' 清空摘要工作表内容
summaryWs.UsedRange.Clear
' 设置搜索范围
Set searchRange = ThisWorkbook.Sheets("工作表1").UsedRange
' 设置粘贴行数
pasteRow = 1
' 遍历搜索范围
For Each cell In searchRange
' 判断是否找到目标值
If cell.Value = "目标值" Then
' 设置复制范围
If copyRange Is Nothing Then
Set copyRange = cell.EntireRow
Else
Set copyRange = Union(copyRange, cell.EntireRow)
End If
End If
Next cell
' 将复制范围粘贴到摘要工作表
If Not copyRange Is Nothing Then
copyRange.Copy summaryWs.Cells(pasteRow, 1)
End If
End Sub上述代码中，首先定义了一些变量，包括工作表对象、搜索范围、复制范围、粘贴行数等。然后，通过遍历搜索范围，判断是否找到目标值，并将符合条件的行添加到复制范围中。最后，将复制范围粘贴到摘要工作表中。
这个功能可以在Excel VBA中使用，通过宏或按钮触发执行。用户可以根据实际需求修改代码中的工作表名称、目标值等参数。
腾讯云提供了云计算相关的产品和服务，例如云服务器、云数据库、云存储等。这些产品可以帮助用户在云端进行计算、存储和管理数据。具体的产品介绍和链接地址可以在腾讯云官网上找到。
相关·内容
2回答
有选择地复制和粘贴符合给定条件的行
excel、vba
我正在尝试根据列J中出现的单词"Yes“选择表中的行。 我有一个从A列到J列的表，我想选择J列中有"Yes“的行，并只将这些行粘贴到新的工作表中。 选择后，我需要将这些行复制到新的工作表或word文档中。 我已经尝试了一系列的论坛，这是为Windows MS Excel软件，使用VBA宏。 我正在使用以下VBA，但遇到了问题： Sub Macro1()
Dim rngJ As Range
Dim cell As Range
Set rngJ = Range("J1", Range("J65536").End(xlUp))
浏览 8提问于2019-05-28得票数 0
回答已采纳
1回答
将多个筛选器复制并粘贴到多个工作表
vba、excel
我想请你帮我写我的宏。我试着在这个网站上寻找解决方案，但是我什么也找不到。
我在Workbook_(当前月份)中有9个不同的工作表--例如，在Workbook_July.xls中，我必须从报表(“report_(当前月份).xls”)中以9种不同的标准复制数据，每个月的名称都不同。
工作表名称："1“、"2”、"3“、"4”、"5“、"6”、"7“、"8”、"9“。(Workbook_(本月))
单元格A8中的自动筛选标准："EN > 1“、"EN > 2”、"EN > 3“、&#
浏览 2提问于2017-07-17得票数 0
1回答
根据单元格值复制粘贴单独的数据范围
vba、excel、range
我在列A的第1行、第2行、第3行和第4行中有数据范围:Q.我正在尝试创建一个VBA，因此它做了以下工作：
复制行1A:q，根据单元格O12拖动和粘贴n行数，从单元格A17开始。
复制行2A:Q，根据单元格O12拖动和粘贴n行数，但粘贴范围应在已粘贴的第1行区域之后。
重复第3排和第4排。
因此，对于单元格O12状态4，我应该为每一行拖放16行4。
任何帮助都将不胜感激。
Sub CopyJournalLines()
' Works out last cell with data in columns A or B, copys row 2 and paste within that
浏览 3提问于2015-07-24得票数 0
回答已采纳
1回答
更改初始范围和目标范围
excel、vba
我是Excel vba的新手，我正在尝试从Siddharth Rout (谢谢)‘更改宏。
我需要指定从一个单元格开始的范围，比如B13，然后复制到C14中的另一个工作表。如何管理这一点？
提前谢谢。
Option Explicit
Sub Sample()
Dim lastRow As Long, i As Long
Dim CopyRange As Range
'~~> Change Sheet1 to relevant sheet name
With Sheets("Sheet1")
lastRow = .Range("A" &a
浏览 2提问于2016-08-10得票数 0
回答已采纳
3回答
我已经创建了一个大型VBA程序，用于自动创建在Excel文件中运行切片器所需的数据表。而这个循环在创建我需要的东西时工作得很好。主循环需要一个小时来创建我需要的公司名称列表。我想知道是否有一种方法可以缩短循环完成所需的时间。我有191行需要复制，然后将每行粘贴68次到新工作表中。我尝试了几种不同的方法来改善时间，只将所需的时间减少到大约50分钟。任何帮助都将不胜感激。我知道使用select对时间效率来说很糟糕，但我尝试过的所有其他选项都没有很好地工作。
Dim rng As Range, cell As Range
For Each cell In rng
Sheets("I
浏览 2提问于2019-07-03得票数 0
1回答
将范围复制到新工作表失败
vba、excel
VBA新手在用偏移量将一张纸复制到另一张表时遇到困难。
复制整个工作表是可行的，但我无法获得带有偏移量的副本，以便以同样的方式工作。
我遗漏了什么？
source.Copy ThisWorkbook.Sheets(Sheets.Count) 'works
source.Range("A12").Copy Destination:=ThisWorkbook.Sheets(Sheets.Count) 'fails
浏览 1提问于2015-11-19得票数 1
回答已采纳
1回答
Excel根据一个列值将整行从一个工作表复制到另一个工作表
vba、excel
我需要从一个工作表中复制整行，然后粘贴到另一个具有相同标题的工作表中，考虑到某个特定的列值等于89581，但我的VBA抛出了424个error.Please帮助。
Sub CopyData()
Dim c As Range
Dim Row As Long
Dim sheetUse As Worksheet
Dim sheetCopy As Worksheet
Set sheetUse = Sheets("Data1").Select
Set sheetCopy = Sheets("Data2").Select
Row = 3 'Assume same
浏览 1提问于2015-07-16得票数 1
1回答
查找要复制到主工作簿的特定单元格
vba、excel
我希望在打开的工作表中找到特定的单元格，并将右侧的数据3个单元格复制到主工作簿中(而不是刚刚打开的工作簿)。
下面的宏循环遍历txt文档中的所有文件，然后打开和关闭它们。在每个文件中都有一个名为ADA的单元格，我想将单元格3复制到右侧，但是ADA并不总是在同一个位置，所以我需要搜索它。例如，找到单元格ADA，并说它在该工作簿中的E6中，我需要将E6以及H6、I6和J6复制到运行宏的原始主工作簿中。
Sub GatherData()
Dim objFSO As Object
Dim objWB As Workbook
Dim strFN As String
Dim objTF As Object
浏览 1提问于2016-02-06得票数 0
3回答
跨多个工作表问题运行VBA代码
excel、vba、date、duplicates
我目前正在使用这段代码，它通过我的工作表，检查O15:O 300范围内是否有符合当前日期的单元格。如果有，则将整个行复制到工作表“今天的操作”中，然后将站点号(位于单元格C3中)复制到“Today Actions”中的AA列。
对于一个特定的工作表，我使用了以下代码，该代码可以很好地完成此任务：
Sub rangecheck()
Application.ScreenUpdating = False
For Each cell In Range("O15:O300")
If cell.Value = Date Then
matchRow = cell
浏览 9提问于2022-07-20得票数 3
1回答
循环从一个工作表复制值并将值粘贴到另一个工作表中68次，时间效率。
performance、vba
我创建了一个大型的VBA程序，用于自动创建在Excel文件中运行切片程序所需的数据表。
虽然循环可以很好地创建我需要的东西，但是主循环需要一个小时才能创建我需要的公司名称列表。我想知道是否有办法提高循环完成所需的时间。
我有191行需要复制，然后将每一行粘贴68次到新工作表中。我尝试了几种不同的方法来缩短时间，只把所需的时间缩短到大约50分钟。任何帮助都将不胜感激。我知道，使用select是可怕的时间效率，但所有其他的选择，我已经尝试了没有很好的工作。
Application.ScreenUpdating = False
Dim rng As Range, cell As Range
F
浏览 0提问于2019-07-03得票数 2
2回答
从列表中查找多个单元格值
excel、vba
我有一本有两张工作表的工作簿。
Sheet1包含A列中的产品代码列表，列R是当前库存级别。Sheet2包含A列中的产品代码列表，B列包含新库存级别。我想要做的是将Sheet1中的当前股票水平替换为来自Sheet2的。
我已经在这个站点上找到了一些代码(如下所示)，为了我的目的，我稍微修改了一些代码，它工作得很好，但只适用于一个产品代码(因为它引用了A1和B1)。我想要做的是添加一个循环，这样它就可以降低Sheet2中的所有产品，但是我不知道如何并且一直无法适应我在网上找到的任何类似的循环。
如果有任何帮助的话，我的备份计划就是在Sheet1中做一个v-查找，引入Sheet2新股票级别的值，然后
浏览 0提问于2018-01-23得票数 0
回答已采纳
1回答
将范围对象从一个工作簿复制到另一个工作簿
excel、vba
我尝试将一个范围从工作簿(用vba-excel打开)复制到另一个(此工作簿)。
Public wbKA as workbook
Sub A()
Dim oExcel As Excel.Application
KAPath = ThisWorkbook.path & "\Data.xlsx"
Set oExcel = New Excel.Application
Set wbKA = oExcel.Workbooks.Open(KAPath)
...
End Sub
使用此代码：
Sub Get()
Dim LastRow As Long
With wbKA.Wor
浏览 0提问于2014-10-20得票数 1
回答已采纳
3回答
VBA将行复制到新工作簿
excel、vba
我不确定为什么没有复制新工作簿时我选择的范围。工作簿的工作表是空白的，我不知道为什么。
Sub NB()
Dim X
Dim copyRange
Dim lngCnt As Long
Dim strDT As String
Dim strNewBook As String
Dim objWS As Object
Dim WB As Workbook
Dim bNewBook As Boolean
Dim topRow As Integer
topRow = -1
Set objWS = CreateOb
浏览 0提问于2013-07-19得票数 0
1回答
对象'_Global‘的'Union’方法失败
excel、vba
更新：我意识到我不能在多张纸上使用union。那我有什么最好的选择？
我只是想将工作簿中的所有工作表合并到第一个工作表中。
在我研究了现有的问题之后，我尝试添加Set = nothing来清除我的范围，但是没有帮助。
Sub Combine()
Dim J As Long
Dim Combine As Range
Dim rng As Range
'I want to start from the second sheet and go through all of them
For J = 2 To Sheets.Count
浏览 1提问于2019-07-03得票数 0
4回答
用于选择特定单元格并相应粘贴的VBA代码
vba、excel
我想从Excel工作簿中的所有工作表中选择特定的单元格，然后粘贴到主控工作表中。问题是我没有从创建的代码中得到它，我得到了一个错误，但如果我现在让它保持原样(如下所示)，我就会得到一个特定单元格的它，然后我必须进入代码来更改该单元格并将其输出到我想要输出的位置。我为我的天真提前道歉。
就像现在一样
Sub CopyIt()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> &
浏览 0提问于2014-10-01得票数 0
1回答
根据标准将数据复制到另一个工作表并清除内容。
excel、vba
此代码用于将标记为“是”的“奖励”列的筛选数据复制到另一个工作表；但是，我正在收到“类型不匹配”的错误。我不是100%，因为代码正在正常工作，以过滤数据和正确复制。我目前有23行测试数据以获得适当的功能。如果我只放置一行数据，那么它就不能正确地复制和粘贴数据。剩下的是复制的第1行数据和第2行空数据。此外，它没有在粘贴后清除行的内容，因此我可能会随着时间的推移添加新的数据。
Sub CopySheet()
Dim i As Integer
Dim LastRow As Integer
Dim Search As String
Dim Column As Integer
Sheets(
浏览 2提问于2015-03-24得票数 1
回答已采纳
我正在尝试让excel专注于包含我搜索到的内容的单元格。因此，如果单元格在搜索后不在我的excel电子表格中，屏幕会自动调整到该特定单元格。然后，我需要将该单元格行中的所有内容自动复制到同一个excel电子表格中的一个新选项卡中。但在第二个选项卡中复制的行需要从第5行中的列A开始，然后继续。下面是我到目前为止的代码，我对VBA不是很熟悉，但我一直在努力。任何帮助或见解都将不胜感激。
`Option Explicit
Sub FindWhat()
Dim sFindWhat As String
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim sh3 A
浏览 2提问于2017-07-28得票数 1
2回答
根据列将数据从一个工作表复制到另一个工作表
vba、excel
我正在尝试编写一个宏来根据列标题将数据从一个工作表复制到另一个工作表。假设在ws1中有三列：“产品”、“名称”、“雇主”和ws2：“产品”、“名称”、“区域”。
所以我想让宏来做所有的复制，因为在我的原始文件中，我有超过100个列标题，我自己做这件事会非常耗时。
我已经写了两个没有成功的宏。VBA是我很长一段时间都无法理解的东西。但还是设法写了一些东西，希望你能告诉我我是否在朝着正确的方向前进。
这是v1
Sub Copy_rangev1()
Dim Ws1 As Worksheet, Ws2 As Worksheet
Dim SourceRange As Range, CopyRange
浏览 0提问于2014-08-02得票数 0
回答已采纳
3回答
如果与特定条件匹配，则将excel中的行复制到新工作表中。
excel、vba
我是VBA的新手，在根据特定的标准将一个工作表中的行复制到另一个工作表时有问题。
我试着在这个论坛上寻找答案，尝试修改代码以适应我的要求，但是没有成功。请帮帮我。
我需要在工作表A栏中搜索编号。搜索应该从1号开始，然后是第2个，然后是3个等等。
每当找到"1“时，将整行复制到”工作表1“。
完成搜索"1“后，开始搜索"2”。找到匹配时，将整行复制到“工作表2”。
同样，没有。"3“等等。
重复搜索其他编号，直到A栏结束。
我已经尝试了以下代码:注意:我将从1变化到预先确定的值。
Dim wb1 As Workbook, wb2 As
浏览 9提问于2013-04-28得票数 4
回答已采纳
1回答
Excel vba宏在工作表选择工作1周前崩溃
vba、excel
我花了很多时间在这里和其他地方寻找，但我没有发现任何答案。我创建了一个电子表格，并在Excel O365中使用它来管理待办测试的积压，它还包括一个用于处理预测的选项卡。
在两个单独的宏中，选择工作表的过程会导致Excel崩溃。
它的行为就像工作表在文件中被重命名了，但在vba中没有更新(这是我以前做过的一个错误，并且很难学到)，但是没有什么被重命名，据我所知，几个月来什么都没有改变。然而，这件事大约在一周前就开始了，我搞不懂。
失败的示例代码：
Sub Send_Range_Or_Whole_Worksheet_with_MailEnvelope()
Dim AWorksheet As Wor
浏览 0提问于2018-08-20得票数 2
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
