excel - 反转行顺序
问题描述
是否有一个简单的代码可以完全反转/镜像 Excel 电子表格中的行顺序?这与使用 Sort 函数(例如,UsedRange.Sort Key1:=Range("A1"), Order1:=xlDescending)不同,因为 Sort 将对链接到相同日期的条目保持相同的出现顺序. 谢谢!
解决方案
反向行
Option Explicit
Sub TESTreverseRows()
reverseRows ThisWorkbook.Worksheets("Sheet1").UsedRange
End Sub
Sub reverseRows(ByRef rng As Range)
If Not rng Is Nothing Then
If rng.Rows.Count > 1 Then
Dim Data As Variant: Data = rng.Value
Dim r As Long: r = UBound(Data, 1)
Dim c As Long: c = UBound(Data, 2)
Dim Result As Variant: ReDim Result(1 To r, 1 To c)
Dim i As Long
Dim j As Long
For i = 1 To r
For j = 1 To c
Result(r, j) = Data(i, j)
Next j
r = r - 1
Next i
rng.Value = Result
End If
End If
End Sub
推荐阅读
- python - 将 django 过滤器编译成变量并在运行时执行?
- javascript - 在不刷新网页的情况下为进度条设置动画
- sql - Sql 触发器在可以引用之前更新表
- string - 在 Alteryx 中将填充字符串转换为固定十进制
- rest - 验证 REST API 的 HTTP POST 请求正文
- python - 测试 Django-Rest 自定义字段
- python - python,找到两个不相等列表之间的区别
- mongodb - 无法使用现有索引对 mongodb 集合进行分片。获取“找不到分片键的有效索引”
- c++11 - 如果构造函数取值,为什么我需要移动构造函数
- python-3.x - pip - 安装特定的软件包版本不起作用