随机推荐列表VBA

Question

我是VBA的新手。

我试图用VBA随机化一个列表。该列表有两个标题“名称”和“拨号”。我想尝试使用宏随机化列表，然后使用按钮应用它。我试过使用下面的代码，但它随机化了名称和数字，但并没有将它们保留在一起。意思如果我的名字是乔恩，我有3个拨号盘，它将我的拨号盘移到其他地方。任何帮助，将不胜感激。

感谢，

Sub Random() 
     Dim tempString As String 
     Dim tempInteger As Integer 
     Dim i As Integer 
     Dim j As Integer 

     For i = 1 To 5 
      Cells(i, 2).Value = WorksheetFunction.RandBetween(0, 1000) 
     Next i 

    For i = 1 To 5 
     For j = i + 1 To 5 

     If Cells(j, 2).Value < Cells(i, 2).Value Then 

     tempString = Cells(i, 2).Value 
     Cells(i, 2).Value = Cells(j, 2).Value 
     Cells(j, 2).Value = tempString 
     tempInteger = Cells(i, 2).Value 
     Cells(i, 2).Value = Cells(j, 2).Value 
     Cells(j, 2).Value = tempInteger 

     End If 

     Next j 
    Next i 
End Sub 

Answer 1

像@jsotola说，分拣似乎做最简单的方法：

Sub Randomer() 
Dim i As Long, startRow As Long, endRow As Long 
Dim ws As Worksheet 

Application.ScreenUpdating = False 
Application.Calculation = xlCalculationManual 

Set ws = ActiveSheet 

startRow = 2 
endRow = WorksheetFunction.Max(_ 
    ws.Cells(ws.Rows.Count, 1).End(xlUp).Row, _ 
    ws.Cells(ws.Rows.Count, 2).End(xlUp).Row) 

For i = startRow To endRow 
    Randomize 
    ws.Cells(i, 3).Value = WorksheetFunction.RandBetween(1, 1000) 
Next i 

ws.Sort.SortFields.Clear 
ws.Sort.SortFields.Add Key:=Range("C" & startRow & ":C" & endRow), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 

With ws.Sort 
    .SetRange Range("A" & startRow & ":C" & endRow) 
    .Header = xlNo 
    .MatchCase = False 
    .Orientation = xlTopToBottom 
    .SortMethod = xlPinYin 
    .Apply 
End With 

ws.Range(ws.Cells(startRow, 3), ws.Cells(endRow, 3)).ClearContents 

Application.Calculation = xlCalculationAutomatic 
Application.ScreenUpdating = True 

End Sub