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

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

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

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

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

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

答：确保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

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

下面是一个示例的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行）复制到目标工作表的下一行。

在B4单元格输入公式：
=IFERROR(INDIRECT(B1&"!"&A4&3),"")
即可

数组公式，你可以尝试，在if的条件中加一个or（$C$1:$C$1000=“班长”，$C$1:$C$1000=“主管”）