我有以下代码,用于选择具有特定名称的单元格并转到以该单元格命名的工作表。
Dim ws As Worksheet
If Target.Address = "$A$1" Then
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = Range("A1").Value Then
ws.Activate
End If
Next ws
End If
但是我想对 A 列中的单元格执行此操作!A1-A306 我应该如何修改代码?
答案1
我会这样做 - 但它不是通过查看 .Address 的值来做到这一点
If Not (Intersect(Target, Range("A1:A306")) Is Nothing) Then
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = Target.Value Then
ws.Activate
End If
Next ws
End If