排座位问题

rhloo

在模块中放入以下代码：

1. Public Sub 学号()
   
2.     Dim Hs As Long
   
3.     '1姓名2学号3身高4性别5随机
   
4.     Hs = ThisWorkbook.Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
   
5.     With ThisWorkbook.Worksheets("Sheet1").Sort
   
6.         .SortFields.Clear
   
7.         .SortFields.Add Key:=Range("B2:B" & Hs), SortOn:=xlSortOnValues, _
   
8.                         Order:=xlAscending, DataOption:=xlSortNormal
   
9.         .SetRange Range("A2:E" & Hs)
   
10.         .Header = xlNo
    
11.         .MatchCase = False
    
12.         .Orientation = xlTopToBottom
    
13.         .SortMethod = xlPinYin
    
14.         .Apply
    
15.     End With
    
16.    
    
17.     Dim R As Range
    
18.     Hs = 2
    
19.     For Each R In ThisWorkbook.Worksheets("Sheet2").Range("D8:K16")
    
20.         R.Value = ThisWorkbook.Worksheets("Sheet1").Cells(Hs, 1).Value
    
21.         Hs = Hs + 1
    
22.     Next R
    
23.     ThisWorkbook.Save '先保存自身文件
    
24. 
    
25. End Sub
    
26. 
    
27. Public Sub 身高()
    
28.     Dim Hs As Long
    
29.     '1姓名2学号3身高4性别5随机
    
30.     Hs = ThisWorkbook.Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
    
31.     With ThisWorkbook.Worksheets("Sheet1").Sort
    
32.         .SortFields.Clear
    
33.         .SortFields.Add Key:=Range("C2:C" & Hs), SortOn:=xlSortOnValues, _
    
34.                         Order:=xlAscending, DataOption:=xlSortNormal
    
35.         .SetRange Range("A2:E" & Hs)
    
36.         .Header = xlNo
    
37.         .MatchCase = False
    
38.         .Orientation = xlTopToBottom
    
39.         .SortMethod = xlPinYin
    
40.         .Apply
    
41.     End With
    
42.    
    
43.     Dim R As Range
    
44.     Hs = 2
    
45.     For Each R In ThisWorkbook.Worksheets("Sheet2").Range("D8:K16")
    
46.         R.Value = ThisWorkbook.Worksheets("Sheet1").Cells(Hs, 1).Value
    
47.         Hs = Hs + 1
    
48.     Next R
    
49.     ThisWorkbook.Save '先保存自身文件
    
50. 
    
51. End Sub
    
52. 
    
53. Public Sub 随机()
    
54.     Dim Hs As Long
    
55.     '1姓名2学号3身高4性别5随机
    
56.     Hs = ThisWorkbook.Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
    
57.     ThisWorkbook.Worksheets("Sheet1").Range("E2:E" & Hs).FormulaR1C1 = "=RAND()"
    
58.     With ThisWorkbook.Worksheets("Sheet1").Sort
    
59.         .SortFields.Clear
    
60.         .SortFields.Add Key:=Range("E2:E" & Hs), SortOn:=xlSortOnValues, _
    
61.                         Order:=xlAscending, DataOption:=xlSortNormal
    
62.         .SetRange Range("A2:E" & Hs)
    
63.         .Header = xlNo
    
64.         .MatchCase = False
    
65.         .Orientation = xlTopToBottom
    
66.         .SortMethod = xlPinYin
    
67.         .Apply
    
68.     End With
    
69.    
    
70.     Dim R As Range
    
71.     Hs = 2
    
72.     For Each R In ThisWorkbook.Worksheets("Sheet2").Range("D8:K16")
    
73.         R.Value = ThisWorkbook.Worksheets("Sheet1").Cells(Hs, 1).Value
    
74.         Hs = Hs + 1
    
75.     Next R
    
76.     ThisWorkbook.Save '先保存自身文件
    
77. 
    
78. End Sub
    

复制代码

18162504607

非常感谢各位的帮助！