怎么写不去重复的排序方法（纯数字）

6f0493bu · 发表于 2008-12-6 08:24

[求助]怎么写不去重复的排序方法（纯数字）

我的问题是这样的

比如

A1=01103

A2=3209

D1=000112339 ////如何写公式，让D1得出 000112339 /（两个格合并后排序）

请老师们帮忙

山菊花 · 发表于 2008-12-6 09:09

写一个自定义函数：
1、按Alt+F11打开VBE窗口，点击菜单“插入—模块”，将代码粘贴到光标处：

Public Function px(Target As Range) As String
Dim Rng As Range, shu(0 To 9) As Integer
For Each Rng In Target
For i = 1 To Len(Rng)
shu(Mid(Rng, i, 1)) = shu(Mid(Rng, i, 1)) + 1
Next
Next
For i = 0 To 9
If shu(i) > 0 Then
px = px & String(shu(i), CStr(i))
End If
Next
End Function

复制代码

2、在工作表单元格中使用公式：
=px(A1:A2)

h5519306 · 发表于 2008-12-6 09:17

=TEXT(SUM(SMALL(--MID(A1&A2,ROW(INDIRECT(1&":"&LEN(A1&A2))),1),ROW(INDIRECT(1&":"&LEN(A1&A2))))*10^(LEN(A1&A2)-ROW(INDIRECT(1&":"&LEN(A1&A2))))),REPT(0,LEN(A1&A2)))

数组公式

6f0493bu · 发表于 2008-12-7 08:05

谢谢你们了。。。

非常感谢，。，。，。

逸致 · 发表于 2010-6-13 19:58

原帖由 山菊花 于 2008-12-6 09:09 发表
写一个自定义函数：
1、按Alt+F11打开VBE窗口，点击菜单“插入—模块”，将代码粘贴到光标处：Public Function px(Target As Range) As String
Dim Rng As Range, shu(0 To 9) As Integer
For Each Rng In Target ...

山菊花老师写的这个自定义函数是不去重排序，如何修改成去重排序？

逸致 · 发表于 2010-6-14 18:11

顶！！！！！！！！！！！

山菊花 · 发表于 2010-6-14 20:04

Public Function qcpx(Target As Range) As String
Dim Rng As Range
For i = 0 To 9
Set Rng = Target.Find(CStr(i), LookIn:=xlValues, lookat:=2)
If Not Rng Is Nothing Then qcpx = qcpx & i
Next
End Function

7786910 · 发表于 2010-6-14 21:55

逸致 · 发表于 2010-6-14 22:41

又见山菊花老师，倍感高兴，谢谢！

mps777 · 发表于 2012-6-8 15:45

=TEXT(SUM(SMALL(--MID(A2&A1,ROW(OFFSET(A1,,,LEN(A2&A1))),1),ROW(OFFSET(A1,,,LEN(A2&A1))))*10^(9-ROW(OFFSET(A1,,,LEN(A2&A1))))),REPT("0",LEN(A2&A1)))

		自动登录	找回密码
密码			免费注册

[求助] 怎么写不去重复的排序方法（纯数字）

回复 5楼逸致的帖子

回复 7楼山菊花的帖子

[求助] 怎么写不去重复的排序方法（纯数字）

回复 5楼 逸致 的帖子

回复 7楼 山菊花 的帖子

回复 5楼逸致的帖子

回复 7楼山菊花的帖子