从列表中抽取一名幸运观众，请大神帮忙看看哪里需要修改？

蓝毛象

Sub点名摇人()

Dimws As Worksheet

    Dim rng As Range

    Dim name As String

    Dim SheetName As String

    Dim RangeStart As String

    Dim NameColumn As String

    SheetName = "Sheet1" ' 你的工作表名

    RangeStart = "c1" ' 你的名字范围的开始点

    NameColumn = "c" ' 假设名字在第A列

    Set ws = ThisWorkbook.Worksheets(SheetName)

    Set rng = ws.Range(NameColumn &":" & NameColumn) ' 只选取一

    Randomize ' 初始化随机数生成器

    name =rng.Cells(Application.WorksheetFunction.RandBetween(1, rng.Cells.Count),1).Value

        MsgBox "幸运观众是: "& name

EndSub

蓝毛象

新手小白  请大神详细解答

大灰狼1976

1. Sub 点名摇人()
   
2. Dim ws As Worksheet
   
3.     Dim rng As Range
   
4.     Dim name As String
   
5.     Dim SheetName As String
   
6.     Dim RangeStart As String
   
7.     Dim NameColumn As String
   
8.     Dim r As Long
   
9.     SheetName = "Sheet1" ' 你的工作表名
   
10.     RangeStart = "c1" ' 你的名字范围的开始点
    
11.     NameColumn = "c" ' 假设名字在第A列
    
12.     Set ws = ThisWorkbook.Worksheets(SheetName)
    
13.     r = ws.Cells(Rows.Count, NameColumn).End(3).Row
    
14.     Set rng = ws.Range(RangeStart & ":" & NameColumn & r) ' 只选取一
    
15.     Randomize ' 初始化随机数生成器
    
16.     name = rng.Cells(Application.WorksheetFunction.RandBetween(1, rng.Cells.Count), 1).Value
    
17.         MsgBox "幸运观众是: " & name
    
18. End Sub

复制代码

蓝毛象

大灰狼1976 发表于 2024-11-15 12:56

r = ws.Cells(Rows.Count, NameColumn).End(3).Row
求教大神  这句话的释义是什么？

z865593849

蓝毛象 发表于 2024-11-18 11:06
r = ws.Cells(Rows.Count, NameColumn).End(3).Row
求教大神  这句话的释义是什么？

大灰狼1976

蓝毛象 发表于 2024-11-18 11:06
r = ws.Cells(Rows.Count, NameColumn).End(3).Row
求教大神  这句话的释义是什么？

有数据的最后行号，原来的rng.Cells.Count数值太大，随机时很难取到数据区域，所以限定到有数据的范围。

蓝毛象

大灰狼1976 发表于 2024-11-18 11:57
有数据的最后行号，原来的rng.Cells.Count数值太大，随机时很难取到数据区域，所以限定到有数据的范围。

不要嫌我啰嗦哈
end（3）这个意思是取三个字符吗？还是3个汉字？我需要取人的名字。。。

大灰狼1976

抱歉，end（3）标准写法是end(xlup)，表示从下往上找到第一个非空单元格，也就是说找到该列有数据的最大行号。(3)是(xlup)的非标准写法，是xlup常量的值。

蓝毛象

大灰狼1976 发表于 2024-11-18 15:57
抱歉，end（3）标准写法是end(xlup)，表示从下往上找到第一个非空单元格，也就是说找到该列有数据的最大行 ...

非常感谢