Vba 如何从工作表中复制值并将其粘贴到一个引用到工作表名称的工作表中

你能帮我写一个VBA代码来检索一些数据吗

我有一张Excel表格，里面有一些工作表。其中一些图纸称为：

• 区域1
• 区域2
• 区域3
• 区域4
• 区域5
• 区域6

所有这些表格都有相同的页眉，因此我想做的是：

创建名为“临时”的临时工作表

插入一个名为“区域”的列，该列将跟踪下一个添加的工作表的名称

从图纸（区域_1）复制标题和值，并将其粘贴到“临时”

从区域_2、区域_3、区域_4、区域_5、区域_6复制值，并将其粘贴到“临时”

最后将临时文件作为新工作簿复制到文件夹中

提前感谢。

这将有助于：

Sub CopySheets()
Dim i As Long, r As Long, c As Long
Dim rNew As Long
Dim ws As Worksheet, wbo As Workbook, wbNew As Workbook
Dim wsNew As Worksheet
    Set wbo = ActiveWorkbook
    Set wbNew = Workbooks.Add
    Set wsNew = wbNew.Worksheets(1)
    rNew = 1
    For Each ws In wbo.Worksheets
        With ws
            If Left(ws.Name, 6) = "region" Then
                r = .Cells(.Rows.Count, 1).End(xlUp).Row
                c = .Cells(1, .Columns.Count).End(xlToLeft).Column
                If rNew = 1 Then ' copy headers
                    wsNew.Range(wsNew.Cells(1, 1), wsNew.Cells(r, c)).Value = _
                        .Range(.Cells(1, 1), .Cells(r, c)).Value
                    rNew = r + 1
                Else ' don't copy headers
                    wsNew.Range(wsNew.Cells(rNew, 1), wsNew.Cells(r + rNew - 2, c)).Value = _
                        .Range(.Cells(2, 1), .Cells(r, c)).Value
                    rNew = r + rNew - 1
                End If
            End If
        End With
    Next
    Call wbNew.Save("N:\wb.xls")
End Sub

---

为我工作。使用此解决方案，您不必使用临时工作表。它将复制所有以“区域”开头的工作表。

请向我们展示您的尝试。最好提前提供任何示例代码和/或数据，以便我们了解您的意图。；）录制宏我对如何选择宏并将其复制粘贴到新工作表有一个很好的主意唯一让我困惑的部分是跟踪一张工作表中单元格名称并将其保存到相关列的部分。我在这里完全迷路了！您的意思是使用Excel？图表中图表的目标工作表数据将图表从一张工作表复制到另一张工作表？什么是图表？不，我不想把所有的工作表都复制到一张工作表中，但我需要知道数据来自哪里？嗨，米沃思，谢谢你，很抱歉回复得太晚。老实说，我认为这不是我想要的。根据您的代码和我的理解，您试图从包含“region”的工作表中获取数据，但是如果我有20个以region开头的工作表呢？我的意思是，有没有办法根据名称选择数据，但更具体地说？