ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 Office知识技巧免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 144|回复: 4

[求助] 求助单元格排序的问题!

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-2-12 18:19 | 显示全部楼层 |阅读模式
请教论坛的大神们关于单元格排序的问题!盼出手相助!

求助排序的问题.rar

17 KB, 下载次数: 2

TA的精华主题

TA的得分主题

发表于 2020-2-12 20:44 | 显示全部楼层
  1. Sub test()
  2.   Dim r%, i%
  3.   Dim arr, brr
  4.   Application.ScreenUpdating = False
  5.   Application.DisplayAlerts = False
  6.   With Worksheets("硬景部分")
  7.     r = .Cells(.Rows.Count, 16).End(xlUp).Row
  8.     arr = .Range("p10:p" & r)
  9.     For i = 1 To UBound(arr)
  10.       brr = Split(arr(i, 1), vbLf)
  11.       ReDim crr(0 To UBound(brr))
  12.       For j = 0 To UBound(brr)
  13.         crr(j) = CDate(Format(Mid(brr(j), 2, 8), "0000-00-00"))
  14.       Next
  15.       For x = 0 To UBound(crr) - 1
  16.         p = x
  17.         For y = x + 1 To UBound(crr)
  18.           If crr(p) > crr(y) Then
  19.             p = y
  20.           End If
  21.         Next
  22.         If p <> x Then
  23.           temp = crr(x)
  24.           crr(x) = crr(p)
  25.           crr(p) = temp
  26.           temp = brr(x)
  27.           brr(x) = brr(p)
  28.           brr(p) = temp
  29.         End If
  30.       Next
  31.       arr(i, 1) = Join(brr, vbLf)
  32.     Next
  33.     .Range("p10").Resize(UBound(arr), 1) = arr
  34.   End With
  35. End Sub

复制代码

TA的精华主题

TA的得分主题

发表于 2020-2-12 20:46 | 显示全部楼层
详见附件。

求助排序的问题.rar.rar

21.91 KB, 下载次数: 5

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-2-12 21:05 | 显示全部楼层

谢谢老师的热心回复!因为数据较多,我把代码放进去看看,有不懂的再请教您!

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-2-13 21:57 来自手机 | 显示全部楼层
老师,谢谢解决了我的问题!根据这个思路,现在想在R列新增一组数据,“【】”里的数字为常规序号,比如1、2、3、……,要按升序排列,怎么破?
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2020-6-7 17:59 , Processed in 0.067438 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表