我怎样才能select使用与最后一个工作表

我的代码看起来像这样：

Sub My Button1() With Worksheets("6th Oct") With .Range(.Cells(3, "Q"), .Cells(.Rows.Count, "P").End(xlUp).Offset(0, 1)) .Formula = "=IF(OR(J3=""Pending"",J3=""Assigned""),""Pending"",IF(AND(J3=""Closed"",E3=M3),""Passed"",""Failed""))" End With End With Range("Q2").Value = "Test" End Sub 

由于工作表名称总是不同，我想删除特定的名称，即“10月6日”，并指向这里的最后一个工作表。 任何人都可以请帮助我如何做到这一点？

感谢您的帮助提前

Answer 1

您可以使用轻松select工作簿中的最后一个工作表

 Workbooks("Name of your Workbook").Worksheets(Worksheets.Count) 

例如

 With Workbooks("Book1.xlsm").Worksheets(Worksheets.Count) 'Do whatever you want End With 

---

如何在你的代码中使用它

我相信你在你的代码中要做的是这样做的

 With ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count) 'Do whatever you want End With 

感谢@ YowE3K和@ChrisNeilsen在评论中的贡献

Answer 2

要访问工作簿的最后一页，请使用以下命令：

 Worksheets(Worksheets.Count).Select 

尝试这个：

 Dim Current As Worksheet ' Loop through all of the worksheets in the active workbook. For Each Current In Worksheets If Current.Name = "6th Oct" Then Current.Delete Next With Worksheets(Worksheets.Count) With .Range(.Cells(3, "Q"), .Cells(.Rows.Count, "P").End(xlUp).Offset(0, 1)) .Formula = "=IF(OR(J3=""Pending"",J3=""Assigned""),""Pending"",IF(AND(J3=""Closed"",E3=M3),""Passed"",""Failed""))" End With End With Range("Q2").Value = "Test"