都来看看这个排序怎么实现，再来看看单位前面的量怎么提取

qy1219no2

I 服了 U
替换功能看来运用得太少了。
第一张图是替换前的（替换为输入一个空格，然后点替换为后面的“格式....”按钮——格式。。。——对齐——设置水平对齐方式——(缩进)居右）

第二张图是“全部替换”按钮后的结果

qy1219no2

rszmyc 发表于 2015-1-8 20:38
点“全部替换”，再点“居右”按钮，，，，那不这一列的单元格都靠右对齐啦，，，，我要的就是“替换过的 ...

请看71楼。。。。
我不知道你是否亲自按照描述去操作过。。。。
如果什么都要别人喂到你嘴里才算，哪你永远也学不会自己吃饭。。。。
别人提供给你的只是一个思路，如果你认真去实践一下，就会发现，替换中的格式替换功能。。。。
回头，你别告诉我，你的替换界面没有“格式。。。”按钮哈。。。。

Zamyi

第一问题：

1. Sub test()
   
2. Application.ScreenUpdating = False
   
3. r = Range("a1", [a1].End(4))
   
4. For i = 1 To UBound(r)
   
5.   a = Split(r(i, 1), "-")
   
6.   For j = 0 To UBound(a)
   
7.     a(j) = Format(a(j), "0000")
   
8.   Next
   
9.   r(i, 1) = Join(a)
   
10. Next
    
11. [b1].Resize(UBound(r)) = r
    
12. [a1:b1].Resize(UBound(r)).Sort [b1]
    
13. [b:b] = ""
    
14. Application.ScreenUpdating = True
    
15. End Sub

复制代码

第二问题：

1. Function F(s, Optional n%)
   
2. With CreateObject("VBSCRIPT.REGEXP")
   
3.   .Pattern = "\d+"
   
4.   F = .Replace(s, "")
   
5.   If n = 0 Then F = Replace(s, F, ""): If F = "" Then F = 1
   
6. End With
   
7. End Function

复制代码

rszmyc

qy1219no2 发表于 2015-1-8 21:20
I 服了 U
替换功能看来运用得太少了。
第一张图是替换前的（替换为输入一个空格，然后点替换为后面的“格 ...

谢谢，，，真还没用过这个功能。。。

rszmyc

Zamyi 发表于 2015-1-9 10:19
第一问题：第二问题：

谢谢Zamyi 的回复

rszmyc

aoe1981 发表于 2015-1-3 00:27
根据以下指点：
http://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1176846&pid=8024 ...

你好，帮忙看看这个怎么实现啊
http://club.excelhome.net/thread-1327195-1-1.html

rszmyc

小花鹿 发表于 2015-1-5 11:20
这么热闹，我也来一个：
Sub test()
Dim ar, i&, j&, s, s1, t

你好，帮忙看看这个怎么实现啊
http://club.excelhome.net/thread-1327195-1-1.html

simonsaq

学无止境啊

一招秒杀

看到28楼的附件有两个模块，分别为160+行、 440+行，合计600+行。
如果有人只需要1句3行，几乎不限层级，就能完美搞定，元芳，你会怎么看?

今铭昔

https://club.excelhome.net/thread-1098513-5-1.html