如题所述
Sub a()
Dim s(10) As String
Dim i As Integer, j As Integer
For i = 0 To 10
s(i) = Chr(Rnd * 96)
Next
For i = 0 To 10
If Not IsNull(s(i)) Then
j = j + 1
Sheet1.Cells(j, 1) = s(i)
End If
Next
End Sub
Dim s(10) As String
Dim i As Integer, j As Integer
For i = 0 To 10
s(i) = Chr(Rnd * 96)
Next
For i = 0 To 10
If Not IsNull(s(i)) Then
j = j + 1
Sheet1.Cells(j, 1) = s(i)
End If
Next
End Sub
温馨提示:答案为网友推荐,仅供参考