0表格单元格的数字组怎么排序?如:Bl列排成 01 05 07 09 10 02 05 07 09 10 03 05 07 09 10 谢谢!
展开全部
在位于第3行,第C列的那一个单元格输入如下内容后再按回车:
=MID(B3,13,2)&" "&MID(B3,7,2)&" "&MID(B3,1,2)&" "&MID(B3,10,2)&" "&MID(B3,4,2)
然后复制到C列的其他行,或者拉格子下去。
=MID(B3,13,2)&" "&MID(B3,7,2)&" "&MID(B3,1,2)&" "&MID(B3,10,2)&" "&MID(B3,4,2)
然后复制到C列的其他行,或者拉格子下去。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
我用VBA已实现这种排序,部分结果如下:
01 05 07 09 10
02 05 07 09 10
03 05 07 09 10
04 05 07 09 10
05 06 07 09 10
05 06 07 09 10
03 05 07 10 11
05 07 08 10 11
鉴于在这里提交完整的VBA程序很容易被拦截,我也不想我的努力成为徒劳,所以请留下别的联系方式。
01 05 07 09 10
02 05 07 09 10
03 05 07 09 10
04 05 07 09 10
05 06 07 09 10
05 06 07 09 10
03 05 07 10 11
05 07 08 10 11
鉴于在这里提交完整的VBA程序很容易被拦截,我也不想我的努力成为徒劳,所以请留下别的联系方式。
追问
谢谢!qq可以吗?342207005
追答
现在可以发送VBA程序了,程序如下:
Sub 数字组排序()
Dim i As Integer, rag As Range, a$
Range("C1:C" & Range("B65536").End(xlUp).Row).ClearContents
For Each rag In Range("B1:B" & Range("B65536").End(xlUp).Row)
a$ = ""
For i = 1 To 99
If InStr(rag.Value, Right("0" & i, 2)) > 0 Then
a$ = a$ & " " & Right("0" & i, 2)
End If
Next i
rag.Offset(, 1).Value = LTrim(a$)
Next
End Sub
部分结果如下:
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询