一个单元格中随机输入n个字符，（1）取出数字并进行排序，输出到A2单元格中。（2）取出字母，将大写字母转换成小写，小写转换成大写，输出到A3单元格中。（是先使用宏录制吧！）

有人没

来人啊

大手求助

你这个没有实际意义吧！

你把心掏出来我看看？ 一个字符一个字符判断chr值就行了吧

假设你在A1单元格输入 一串字符，执行下列代码即可获得你要的结果。
Sub test()
Dim arr()
Dim i As Integer, j As Integer, str As String
j = 1
For i = 1 To Range("a1").Characters.Count
If Range("a1").Characters(i, 1).Text Like "[0-9]" Then
ReDim Preserve arr(1 To j)
arr(j) = Range("a1").Characters(i, 1).Text
j = j + 1
ElseIf Range("a1").Characters(i, 1).Text Like "[A-Z]" Then
str = str & LCase(Range("a1").Characters(i, 1).Text)
ElseIf Range("a1").Characters(i, 1).Text Like "[a-z]" Then
str = str & UCase(Range("a1").Characters(i, 1).Text)
End If
Next
Range("a2:a3").Clear
[a3] = str
For i = 1 To UBound(arr)
For j = i + 1 To UBound(arr)
If arr(i) > arr(j) Then
TEMP = arr(j)
arr(j) = arr(i)
arr(i) = TEMP
End If
Next j
Next i
For i = 1 To UBound(arr)
Range("a2") = "'" & Range("a2") & CStr(arr(i))
Next
End Sub