Public Sub cho()
Dim i, x, z
If Range("r1") = 1 Then '顺
If Range("r2") = 2 Then
Range("r2") = ""
Range("s1") = ""
End If
Range("s1") = Range("s1") + 1
End If
z = Application.CountA(Sheet9.Range("a:a")) '错
If Range("r1") = 3 Then
Range("s1") = Range("s1") + 1
End If
Select Case Range("g1")
Case 1
Range("b1") = "单项选择"
x = Application.CountA(Sheet2.Range("b:b")) '随
Case 2
Range("b1") = "多项选择"
x = Application.CountA(Sheet3.Range("b:b"))
Case 3
Range("b1") = "判断题"
x = Application.CountA(Sheet4.Range("b:b"))
End Select
