WorksheetFunction类Index属性获取失败（错误104）：表单随机取值求助

嘿，这个错误我之前也踩过坑！问题出在两个关键地方，咱们一步步捋明白：

首先，你给Index函数传的第一个参数是"Codes!A3:K66"——这只是一串普通的字符串文本，VBA根本识别不出它指向工作表里的单元格区域，自然没法执行索引操作，这就是错误104的核心原因。

其次，你用的RandBetween(3, 64)是工作表的绝对行号，但Index的行参数需要的是目标区域内的相对行号。比如你的目标区域是A3:K66，这个区域的第一行对应工作表的A3，在Index里它的行号是1，最后一行是64（66-3+1），所以你应该生成1到64的随机数，而不是3到64。

给你改好了代码，两种写法任你选：

写法一：清晰明了版（推荐，方便后续维护） #

Private Sub CommandButton1_Click()
    ' 先明确指向目标工作表和区域
    Dim targetRange As Range
    Set targetRange = ThisWorkbook.Worksheets("Codes").Range("A3:K66")
    
    ' 生成区域内的随机行、列号
    Dim randomRow As Integer, randomCol As Integer
    randomRow = Application.WorksheetFunction.RandBetween(1, targetRange.Rows.Count)
    randomCol = Application.WorksheetFunction.RandBetween(1, targetRange.Columns.Count)
    
    ' 提取随机单元格的值到文本框
    TextBox1.Value = Application.WorksheetFunction.Index(targetRange, randomRow, randomCol)
End Sub

写法二：简洁紧凑版 #

Private Sub CommandButton1_Click()
    With ThisWorkbook.Worksheets("Codes").Range("A3:K66")
        TextBox1.Value = Application.WorksheetFunction.Index(.Cells, _
            Application.WorksheetFunction.RandBetween(1, .Rows.Count), _
            Application.WorksheetFunction.RandBetween(1, .Columns.Count))
    End With
End Sub

为什么这样改更靠谱？

• 用ThisWorkbook.Worksheets("Codes").Range("A3:K66")直接获取实际的单元格区域对象，而不是字符串，这才是Index函数需要的参数类型。
• 用targetRange.Rows.Count自动获取区域的行数，就算以后你调整了区域范围（比如改成A3:K100），代码不用手动改数字，灵活性拉满。
• 随机数范围改成区域内的相对位置，避免出现超出区域范围的索引值（这也是可能触发错误的潜在隐患）。

如果你的工作表名称里有空格或者特殊字符，记得给名称加上单引号，比如Worksheets("My Codes")对应的区域要写成Range("'My Codes'!A3:K66")，不过你的工作表是Codes，完全没问题。

内容的提问来源于stack exchange，提问作者Mark LaRosa