[已解决]单元格数组排序！

wszbd · 发表于 2013-8-7 19:44

数据指标.rar (2.38 KB, 下载次数: 20)

我心飞翔410 · 发表于 2013-8-7 20:45

看不明白数据怎么来的啊

wszbd · 发表于 2013-8-7 21:01

O17：R17的每个单元格去掉重复数，留一个。并且大小由0-9循序排列。就像O20：R20

wszbd · 发表于 2013-8-7 21:05

你不用管数据是怎么来的，就看017，P17，Q17，R17这四个单元格里的数组，去掉重复数，留一个。并且大小由0-9循序排列。就像O20：R20

wszbd · 发表于 2013-8-7 21:07

就是把017，P17，Q17，R17这四个单元格里的数组变成像020，P20，Q20，R20这四个单元格里的数组

wszbd · 发表于 2013-8-8 04:08

哪个高手能帮帮我！！！

上清宫主 · 发表于 2013-8-8 07:58

写一个的，其它的循环吧：
Dim ar(0 To 9)
s$ = [o17]
For i% = 1 To Len(s)
ar(Mid(s, i, 1) * 1) = Mid(s, i, 1)
Next
MsgBox Join(ar, "")

zhp3 · 发表于 2013-8-8 10:26

附件有点看不明白。

wszbd · 发表于 2013-8-8 16:46

上清宫主你好：O17的结果还让它显示在O17里，就是用结果替换原有的数组。其他的3个数组是一样的。

上清宫主 · 发表于 2013-8-8 21:27

For Each r In [o17:r17]
s$ = "'"
For i% = 0 To 9
If InStr(r.Value, i) Then s = s$ & i
Next
r.Value = s
Next

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