Excel VBA - 将摘要表单中的数据复制为变量

Question

单元格E7：E17包含现有工作表名称的值。后续列包含要复制到相应工作表的数据。 防爆。 E7值是案例1 F7：H7包含要复制到工作表的数据＆＃34;案例1＆＃34; 是否可以将工作表名称作为变量循环？

Example

Answer 1

如果您仍然需要它，以下代码将循环显示单元格E7：E17，并将其值用作工作表名称。

然后将该数据放在该单元格右侧的三列中，并将数据复制到工作表上的单元格A1：C1，并带有单元格值。

Sub test()

Dim cell As Range, startSheet As String

Application.ScreenUpdating = False

startSheet = ActiveSheet.Name

For Each cell In Sheets(startSheet).Range("E7", "E17")

    If Not cell.Value = Empty Then
        Sheets(cell.Value).Range("A1:C1") = Sheets(startSheet).Range(cell.Offset(0, 1), cell.Offset(0, 4))
    End If

Next cell


Application.ScreenUpdating = True


End Sub