参考从中复制数据的选项卡，将不同选项卡中的数据整理到单个选项卡答案

【问题标题】：Collate data from different tabs to single tabs with reference of the tabs from which the data is copied参考从中复制数据的选项卡，将不同选项卡中的数据整理到单个选项卡
【发布时间】：2019-01-29 21:11:22
【问题描述】：

我有一个包含大约 20-25 个工作表的工作簿。我只想将每个工作表的第 4 行中的填充行复制到一个工作表中 - “整理”以及源工作表的名称（从中复制数据）。在整理工作表中，应仅复制每个工作表中填写的行（连同第一列中的工作表名称）。有人可以建议/提供 vba 代码来实现上述目标。

【问题讨论】：

例如。有 25 个选项卡 A 到 Y，每个选项卡都有标题，所有列都相同。仅当行不为空白时，我才需要将第 5 行的 A 列到 Z 列的数据复制到名为 collate 的工作表中，其中第 1 列（Col A）将是从中复制数据的标签的名称，并且B 行以后将是实际数据。
我正在使用下面的代码 -
输入标题行，然后相应地从选项卡中省略输入的行并检索剩余的行（如果已填写），但不检索第一列（Col A）中的选项卡名称整理表
将 i 调暗为整数，将 xTCount 调暗为变体将 xWs 调暗为工作表集 xWs = ActiveWorkbook.Worksheets.Add(Sheets(1)) xWs.Name = "Collate" Worksheets(2).Range(" A1").EntireRow.Copy Destination:=xWs.Range("A1") For i = 2 To Worksheets.Count Worksheets(i).Range("A1").CurrentRegion.Offset(CInt(xTCount), 0)。复制_目的地：=xWs.Cells(xWs.UsedRange.Cells(xWs.UsedRange.Count).Row + 1, 1) 下一步
我需要来自 Collate Tab 中所有选项卡的数据，其中 A 列指定从中复制数据的选项卡的名称

标签： excel vba collation

【解决方案1】：

我已将此任务分解为 2 个函数/子例程。在每个选项卡中添加带有选项卡名称的列的函数 - 将 WS 调暗为工作表将 LASTROW 调暗出错时继续下一步对于表格中的每个 WS 如果 WS.Name "Master" And WS.Name "Collate" Then 与 WS LASTROW = .Range("A" & Rows.Count).End(xlUp).Row .Columns(1).插入 .Range("A1:A" & LASTROW) = WS.Name 结束于万一下一个 WS B. 接受 no 的函数。标题行并从下一行（标题行数 + 1）开始整理数据（包括添加的带有选项卡名称的列）- 将 I 调暗为整数将 xTCount 调暗为变体将 xWs 调暗为工作表出错时继续下一步输入： xTCount = Application.InputBox("标题行数", "", "1") If TypeName(xTCount) = "Boolean" Then Exit Sub If Not IsNumeric(xTCount) Then MsgBox "只能输入数字", , "输入标题行" 转到 LInput 万一设置 xWs = ActiveWorkbook.Worksheets.Add(Sheets(1)) xWs.Name = "大师" Worksheets(2).Range("A1").EntireRow.Copy Destination:=xWs.Range("A1") 对于 I = 2 到 Worksheets.Count Worksheets(I).Range("A1").CurrentRegion.Offset(CInt(xTCount), 0).Copy _ 目的地：=xWs.Cells(xWs.UsedRange.Cells(xWs.UsedRange.Count).Row + 1, 1) 下一个

【讨论】：