Question

我想参考新添加的表格。它们是通过循环添加的。

它们的名称为Sheet1，Sheet2，Sheet3等。我还有一个变量n，当创建Sheet1时，它等于1，等于在创建Sheet2时为2，在创建Sheet3时等于3，依此类推。

我的代码如下所示：

For i = 2 To 1000

If Worksheets("DATA").Cells(i, "A").Value <> "" And Worksheets("DATA").Cells(i, "A").Value <> "TOTAL" Then

Worksheets("Template").Cells(1, "C").Value = Worksheets("DATA").Cells(i, "B").Value
Worksheets("Template").Cells(2, "C").Value = Worksheets("DATA").Cells(i, "C").Value
Worksheets("Template").Cells(3, "C").Value = Worksheets("DATA").Cells(i, "A").Value
Worksheets("Template").Cells(5, "D").Value = Worksheets("DATA").Cells(i, "D").Value
Worksheets("Template").Cells(5, "E").Value = Worksheets("DATA").Cells(i, "E").Value

Sheets.Add

n = 0
n = n + 1

Worksheets("Template").Cells.Copy

Worksheets("Sheet & n").Range("A1").Paste 'Problem is in this line

Worksheets("Sheet" & n).Activate ' And in this line

    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With

标有注释的行有问题我的问题是如何使用Sheet1变量来引用Sheet2，n等？

请耐心等待我，因为我对VBA很新。如果我的问题含糊不清或难以理解，请告诉我提前谢谢。

Answer 1

引号""内的任何内容都将被视为字符串。

将"Sheet & n"更改为"Sheet" & n

此外，您应该避免使用.Activate。 INTERESTING READ

还有一件事：P

您无需Activate将表单粘贴到其中。你可以在一行中完成。例如。

ThisWorkbook.Sheets("Sheet1").Range("A1:A5").Copy _
ThisWorkbook.Sheets("Sheet2").Range("A1")

Answer 2

您还可以在创建工作表时保存对工作表的引用，这样您就不必猜测名称。用前两行替换你的行Sheets.Add：

Dim oSheet As Worksheet

Set oSheet = Sheets.Add

'***** Do what you need with the sheet
oSheet.Range("A1").Paste
Debug.Print oSheet.Name

'***** Clear the reference when you're done
Set oSheet = Nothing

参考新添加的工作表

2 个答案: