Question

因此，我正在寻找一种方法将工作簿的所有工作表复制到同一工作簿中的目标工作表中。每个工作表包含1列名称，并且需要将它们粘贴在目标工作表中。 +在目标文件夹中，工作表名称必须在第二列中的每个名称旁边显示。例如：

Sheet 1中：

XXX

ERER

zerzeerz

ER

Sheet 2中：

SFD

KLM

zzzer

Destinationsheet：

xxx sheet1

erer sheet1

zerzeerz sheet1

er sheet1

sfd sheet2

klm sheet2

zzzer sheet2

我在vba中并不擅长，并在互联网上尝试了很多东西，但没有任何作用。有人有想法

Answer 1

以下是源表格中 A 列到目标工作表 A 和 B 列的示例：

Sub columnIzer()
    Dim sh As Worksheet, d As Worksheet
    Dim N As Long, M As Long
    Dim rn1 As Range, rng2 As Range
    Set d = Sheets("Destinationsheet")

    For Each sh In Sheets
        If sh.Name <> d.Name Then
            N = sh.Cells(Rows.Count, "A").End(xlUp).Row
            Set rng1 = sh.Range("A1:A" & N)
            M = d.Cells(Rows.Count, "A").End(xlUp).Row + 1
            Set rng2 = d.Range("A" & M)
            rng1.Copy rng2
            rng2.Offset(0, 1).Resize(N, 1).Value = sh.Name
        End If
    Next sh
End Sub

将工作簿的所有工作表复制到另外的另一个工作簿下的目标工作表中

1 个答案: