下标超出范围错误Excel复制/粘贴

Question

我正在使用以下代码尝试将B4从工作表10复制并粘贴到工作表6，然后在工作表6的b列中输入时间戳。

但是，我在*所在的代码行中出现subscript out of range错误。

 Application.ScreenUpdating = False
 Dim copySheet As Worksheet
 Dim pasteSheet As Worksheet

 Set copySheet = ThisWorkbook.Sheets(Sheet10Name)   ****
 Set pasteSheet = ThisWorkbook.Sheets(Sheet6Name)

 copySheet.Range("B4").Copy
 pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
 Range("B" & (ActiveCell.Row)).Select
 ActiveCell.Value = Now()
 Application.CutCopyMode = False
 Application.ScreenUpdating = True

现在，显然我没有将now（）插入到sheet6的b列中。

正确的最终结果

 Application.ScreenUpdating = False
 Dim copySheet As Worksheet
 Dim pasteSheet As Worksheet

 Set copySheet = ThisWorkbook.Sheets(Sheet10.Name)
 Set pasteSheet = ThisWorkbook.Sheets(Sheet6.Name)

 copySheet.Range("B4").Copy
 pasteSheet.Cells(pasteSheet.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
 pasteSheet.Cells(pasteSheet.Rows.Count, 1).End(xlUp).Offset(0, 1).Value = Now()
 Application.CutCopyMode = False
 Application.ScreenUpdating = True

Answer 1

我认为这就是您使用（也许滥用） Sheets()部分的方式。 尝试这个：

Sub t()
Application.ScreenUpdating = False
 Dim copySheet As Worksheet
 Dim pasteSheet As Worksheet

 Set copySheet = ThisWorkbook.Sheets(Sheet10.Name)
 Set pasteSheet = ThisWorkbook.Sheets(Sheet6.Name)

 copySheet.Range("B4").Copy
 pasteSheet.Cells(pasteSheet.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
 pasteSheet.Range("B" & (ActiveCell.Row)).Select
 ActiveCell.Value = Now()
 Application.CutCopyMode = False
 Application.ScreenUpdating = True
End Sub

还要注意，我在您的Rows.Count和Range("B" & Activecell...)部分中明确给出了工作表，这也应该有所帮助。 否则，切换工作表时可能会出现一些错误。