Excel VBA循环和单元格值匹配

我想要做的似乎是基本的,但是我不知道我在哪里出错的代码。

我想通过工作表循环运行选定的单元格,并select与位于单元格B1中选定的单元格相匹配的工作表。

Dim SelectedCell as Range Dim ws As Worksheet Set SelectedCell = Range(ActiveCell.Address) For Each ws In ActiveWorkbook.Worksheets If ws.Range("B1").Value = SelectedCell.Value Then ActiveSheet.Select End If Next ws End Sub 

在此先感谢所有的帮助!

改为尝试

 Dim ws As Worksheet SelectedCell = ActiveCell For Each ws In ActiveWorkbook.Worksheets If ws.cells(1,2) = SelectedCell Then ws.Select End If Next ws End Sub 

select单元格运行macros将select匹配所选单元格的工作表名称。 (区分大小写)

 Dim SelectCell As String Dim ws As Worksheet SelectCell = ActiveCell.Value2 For Each ws In ActiveWorkbook.Worksheets If ws.Name = SelectCell Then ws.Select End ID Next ws