Range 类的 Select 方法失败。 msgBox 找到范围地址，但不会“.Select”

Question

我正在使用命名范围（主要在工作表 2 中），并且正在创建一个名为“注册”的工作表中的摘要。我主要是剪切和粘贴在程序的其他部分工作的代码。由于某种原因，VBA 不会在工作表 2 中选择范围。

在下面的代码中，“SignupPairs”是工作表“Signups”中的一个范围，“NewMem”是“Sheet2”中的一个范围。

''''''''''
MsgBox "SignupPairs 2,1 " & Range("SignupPairs")(2, 1)
Range("SignupPairs")(2, 1).Select
MsgBox "NewMem 1,1 " & Range("NewMem")(1, 1)
'Sheets("Sheet2").Range("NewMem")(1, 1).Select  'Doesn't work.
Range("NewMem")(1, 1).Select
''''''''''

前四行已添加用于调试目的。最后一行是让我突然停下来的那一行。第四行试图具体说明我想使用的工作表；它没有用。 MsgBox 正确报告了“SignupPairs”和“NewMem”中单元格的内容，但我无法选择 NewMem(1,1) 来执行“Range(Selection, Selection.End(xlDown)).Rows.Count.

对于加分：是否有人有一个链接或参考，以获得关于 VBA 的良好入门或手册，这样我就可以自学而不必问这些简单的问题？ VBA for Dummies 只会让我陷入困境。

附：在 VBA 编辑器中单击“选择”上的“F1”会将我转到“选择案例”页面，这似乎是一个死胡同。

Answer 1

由于您是 VBA 新手，我强烈建议您始终在代码中写下您打算作为 cmets 执行的操作。这将有助于帮助者和未来的你。

我不确定您要如何处理摘要表中的数据。我建议您创建对摘要表的引用，然后您可以使用命名范围中的数组。

这是一种方法，您可以将 Sign Up Pairs 和 New Mem 放入数组中，然后将 msg 框出您正在查看的内容（但我假设您想要匹配它们或做其他事情）

Sub doSomethingWithSignups()
    Dim ws As Worksheet, signUps As Variant, newMems As Variant
    ' these arrays will have whatever data you have identified in the Named Ranges
    signUps = ThisWorkbook.Names("SignupPairs").RefersToRange.Value2
    newMems = ThisWorkbook.Names("NewMems").RefersToRange.Value2

    ' you can do anything with these arrays now
    MsgBox("SignupPairs 2,1 " & signUps(2, 1))
    MsgBox("NewMem 1,1 " & newMems(1, 1))
End Sub