excel怎么提取指定内容然后整理成一个新表格-ZOL问答

8个回答默认排序

默认排序

按时间排序

没找到满意答案？去问豆包AI智能助手

取消复制问题

已采纳

若您希望从每个工作表中提取特定行并组成新工作表，以下是一个可行的方法：
首先，在原工作表中插入一个辅助列（假设为辅助列A），在A1单元格输入以下公式：=MOD(ROW(),99)=0。然后向下拖动填充该公式，这样就可以在A列显示TRUE或FALSE的值，用于判断是否需要选取该行。
接下来，在原工作表中选择整个数据区域，并点击“数据”选项卡中的“高级”按钮。在弹出的对话框中选择“复制到其他位置”，然后在“复制到”框中输入新工作表的名称和单元格地址，例如Sheet2!A1，并勾选“仅显示行”复选框。在“条件”框中输入=TRUE，并点击确定。这样就能在新工作表中仅选取满足条件的行。
最后，删除新工作表中的辅助列A，即可得到所需的抽取结果。
这种方法能够帮助您从多个工作表中提取特定行并生成一个新的、包含这些行的单独工作表。

取消评论

相关应用推荐

Microsoft Office Excel2007

1、通过简单的复制操作即可完成此功能，首先打开一个excel表格，需要将表格中B列单元格内的数值生成新的excel表格。

2、新建一个空白excel文件。

3、选中原本的excel表格的B列单元格，使用“Ctrl+C”进行复制操作。

4、然后切换到新建的excel表格中，点击鼠标右键，在弹出的选项中点击“粘贴数值”。

5、即可将复制的单元中的内容只粘贴数值在新表格中，而不带公式与格式。

取消评论

avagao149100762

答：确保Sheet1为活动工作表时，运行下面代码。
Sub Demo() Dim MyRng As Range Dim DesRng As Range Set MyRng = Range(B6:G10) Set DesRng = Sheets(Sheet2).Cells(Rows.Count, 4).End(xlUp).Offset(1, 0) MyRng.Copy With DesRng .PasteSpecial xlPasteValues .Offset(0, -3).Resize(MyRng.Rows.Count, 1) = Range(F1) .Offset(0, -2).Resize(MyRng.Rows.Count, 1) = Range(B1) .Offset(0, -1).Resize(MyRng.Rows.Count, 1) = Range(B2) End With Application.CutCopyMode = FalseEnd Sub

取消评论

xwsandy

这样最多只能做数据公式关联，因为单元格位置都是一样的，所以不复杂。
可以把所有竖表名称统一下如竖表1，竖表2，竖表3.......，然后横表直接公式先对应竖表1单元格提起完整数据一行，然后选择横表第一行所有内容按住ctrl往下拉，搞定！！！

取消评论

qqwhongqqw

下面是一个示例的VBA代码，可以帮助您批量提取指定文件夹中所有Excel表格中特定工作表的内容，并将其汇总到一张表中：
vba
Sub ExtractDataFromSheets()
Dim FolderPath As String
Dim FileName As String
Dim wbSource As Workbook
Dim wsSource As Worksheet
Dim wsDestination As Worksheet
Dim LastRow As Long
Dim SourceRange As Range
Dim DestinationRange As Range

' 设置文件夹路径
FolderPath = C:\YourFolderPath\ ' 更改为实际的文件夹路径

' 设置目标工作表
Set wsDestination = ThisWorkbook.Sheets(汇总表) ' 将汇总表替换为实际的目标工作表名称

' 打开文件夹中的每个Excel文件
FileName = Dir(FolderPath & *.xlsx) ' 可根据实际文件类型进行更改

Do While FileName
Set wbSource = Workbooks.Open(FolderPath & FileName)

' 提取每个工作表中的数据
For Each wsSource In wbSource.Worksheets
If wsSource.Name = 钢筋出库量 Then ' 更改为实际的工作表名称
LastRow = wsSource.Cells(Rows.Count, 1).End(xlUp).Row
Set SourceRange = wsSource.Range(A5:Z & LastRow) ' 更改为实际的数据范围
Set DestinationRange = wsDestination.Cells(Rows.Count, 1).End(xlUp).Offset(1)
SourceRange.Copy DestinationRange
End If
Next wsSource

wbSource.Close SaveChanges:=False
FileName = Dir
Loop

MsgBox 数据提取完成！
End Sub

使用前，请确保按照注释中的说明修改代码中的文件夹路径、目标工作表名称以及源工作表名称和数据范围。运行该宏后，它将遍历指定文件夹中的所有Excel文件，找到每个文件中名为钢筋出库量的工作表，并将其内容（不含表头4行）复制到目标工作表的下一行。

取消评论