合并单元格如何排序

jylai · 发表于 2024-8-15 21:09

本帖最后由 jylai 于 2024-8-16 23:32 编辑

A跟B列排序后结果像E2:F9

quqiyuan · 发表于 2024-8-15 21:34

使用冒泡排序法，只对B列拍了序，A列我看不懂怎么搞，一样的，怎么排，它是不是跟B列联动呢，还是自己排呢，不清楚。仅供参考。。。

quqiyuan · 发表于 2024-8-15 21:35

代码如下。。。
Sub test()
arr = [a1].CurrentRegion
For i = 2 To UBound(arr) - 1
      If arr(i, 2) <> Empty Then
         For j = i + 1 To UBound(arr)
            If arr(j, 2) <> Empty Then
                  If arr(i, 2) > arr(j, 2) Then
                     temp = arr(i, 2)
                     arr(i, 2) = arr(j, 2)
                     arr(j, 2) = temp
                  End If
            End If
         Next
      End If
Next
[a1].CurrentRegion = arr
Beep
End Sub

jylai · 发表于 2024-8-16 06:05

B列排了序，A列是跟B列联动类似这公式功能SORT（A2:B11,2,1）
主要是B列排序，A列跟着联动就可以了
SORT（A2:B11,2,1）可以实现，遇到合并单元格实现不了

quqiyuan · 发表于 2024-8-16 06:37

修改一下，A列随B列变化

quqiyuan · 发表于 2024-8-16 06:38

代码如下。。。
Sub test()
arr = [a1].CurrentRegion
For i = 2 To UBound(arr) - 1
      If arr(i, 2) <> Empty Then
         For j = i + 1 To UBound(arr)
            If arr(j, 2) <> Empty Then
                  If arr(i, 2) > arr(j, 2) Then
                     For k = 1 To 2
                        temp = arr(i, k)
                        arr(i, k) = arr(j, k)
                        arr(j, k) = temp
                     Next
                  End If
            End If
         Next
      End If
Next
[a1].CurrentRegion = arr
Beep
End Sub

ykcbf1100 · 发表于 2024-8-16 08:57

你的附件做得不好，首先，第一列内容全部一样，这样的话，第一列和第二列有没有联动也不知道啊。其次，合并格2~4行和9~11行行数完全一样，太对称了，这样就失去合并单元格排序的意义了。

leeson7502 · 发表于 2024-8-16 09:06

提示: 作者被禁止或删除内容自动屏蔽

ykcbf1100 · 发表于 2024-8-16 09:23

本帖最后由 ykcbf1100 于 2024-8-16 09:25 编辑

合并单元格排序，可升序，也可以降序

ykcbf1100 · 发表于 2024-8-16 09:27

合并单元格排序

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

[已解决] 合并单元格如何排序

评分

评分

leeson7502 leeson7502 当前离线性别保密 UID 66230 阅读权限 0 注册时间 2005-2-19 在线时间小时最后登录 1970-1-1 积分 446 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2024-8-16 09:06 \| 显示全部楼层 [广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报