Excel VBA如何将单元格的一部分复制并粘贴到新制作的工作表中

Question

我正在做一个预算制定者，可以帮助人们跟踪自己的钱。 我目前有一堆代码来检查当前月份，并尝试制作一个名称为（MM / YYYY）的新工作表，除非该工作表已经完成，否则将不会发生任何事情。

Private Sub Worksheet_Change(ByVal Target As Range)
    nowMonth = Month(Now)
    nowYear = Year(Now)
    sheetNameStr = nowMonth & "," & nowYear

    sheetExists = False
    For Each Sheet In Worksheets
        If sheetNameStr = Sheet.Name Then
            sheetExists = True
        End If
    Next Sheet
    If sheetExists = False Then
        Set ws = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        ws.Name = sheetNameStr
        MsgBox ("New sheet named " & sheetNameStr & "was created")
    End If
    Sheets("Main").Activate

    Worksheets("Main").Range("A5:D300").Copy Worksheets("sheetNameStr").Range("A1")
End Sub

我遇到的问题是试图复制并粘贴我的购买/收入历史记录并将其粘贴到新表中。 我总是得到

运行时错误“ 9”：下标超出范围

错误。

如果有人可以帮助，将非常感谢！

Answer 1

你的行说

Worksheets("Main").Range("A5:D300").Copy Worksheets("sheetNameStr").Range("A1")

是指一个名为"sheetNameStr"的工作表，但您确实要引用具有工作表的名称，该工作表包含在变量sheetNameStr ，即

Worksheets("Main").Range("A5:D300").Copy Worksheets(sheetNameStr).Range("A1")