请教前辈们关于革命前辈的故事“EXC

来源：蜘蛛抓取(WebSpider) 时间：2017-02-26 07:56 标签： 前辈
[求助]关于门牌号排序问题，向前辈们请教！
阅读权限20
在线时间 小时
Sub 门号排序()
& & Dim matchs As Object, arr, brr&(), i&
& & arr = Range(&F2:F& & Range(&F& & Rows.Count).End(xlUp).Row)
& & ReDim brr(1 To UBound(arr), 1 To 1)
& & With CreateObject(&VBScript.RegExp&)
& && &&&.Global = True
& && &&&.Pattern = &[0-9]+&
& && &&&For i = 1 To UBound(arr)
& && && && &Set matchs = .Execute(arr(i, 1))
& && && && &If .test(arr(i, 1)) Then brr(i, 1) = matchs(0).Value
& && &&&Next
& & End With
& & [G2].Resize(i - 1) = brr
& & Range(&A2:G& & i).Sort Key1:=Range(&G2&), Order1:=xlAscending, Header:=xlNo
& & [G:G].Clear
End Sub
& &
' 备注：1、门牌号必须调整在F列中F2单元格以下；G列为空白(辅助替换列）。
'
'扩展排序区域为（A2：F65536 ）！！！复制代码
阅读权限20
在线时间 小时
Function df(x)
'
' df Macro
' 此为党费的自定义函数，非宏，但也以宏加载，视为内置函数用！
'
& & Const r1# = 0.005, r2# = 0.01, r3# = 0.015, r4# = 0.02
& & If x &= 3000 Then df = x * r1
& & If x &= 5000 And x & 3000 Then df = x * r2
& & If x &= 10000 And x & 5000 Then df = x * r3
& & If x & 10000 Then df = x * r4
End Function复制代码
阅读权限20
在线时间 小时
& & & & & & & &
公式5：
=IF(ISERROR(FIND(&-&,F2)),MID(F2,LENB(F2)-LEN(F2),LEN(F2)*2-LENB(F2)),MID(LEFT(F2,FIND(&-&,F2)),LENB(LEFT(F2,FIND(&-&,F2)))-LEN(LEFT(F2,FIND(&-&,F2)))+1,LEN(LEFT(F2,FIND(&-&,F2)))*2-LENB(LEFT(F2,FIND(&-&,F2)))-1))
单取附（负）号：
=IF(ISERROR(FIND(&-&,F2)),&&,MID(F2,FIND(&-&,F2)+1,LEN(F2)-1-FIND(&-&,F2)))复制代码
13:23 上传
点击文件名下载附件
3.03 KB, 下载次数: 2
分享大家，方便自己！
阅读权限20
在线时间 小时
将门牌号转为数值（含小数）再来排序！！！
22:11 上传
点击文件名下载附件
3.79 KB, 下载次数: 2
分享测试，重在引玉！
阅读权限20
在线时间 小时
又作增补！
10:20 上传
点击文件名下载附件
5.02 KB, 下载次数: 1
阅读权限10
在线时间 小时
针对撸主这种情况&&如果把 弄 和 号 中间数据分列 再次分主次筛选 这样会快很多&&函数我不会啊
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师Microsoft Excel-论坛文件展示[51自学网园地]
→ 论坛文件展示
论坛文件展示
感谢会员：提供
18560　Byte
创建时间：
相关帖子：
请教各位前辈们，我是excel 的初学者，在工作中遇到点麻烦，想引用多个相同格式工作表格内的数据
本论坛言论纯属发表者个人意见，与本站立场无关，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ 粤ICP备号
Copyright © 2007
Powered By
页面执行时间 0.10156 秒, 3 次数据查询

我要回帖

更多关于 前辈 的文章

 

随机推荐