表头带合并的单元格怎么进行排序

whmomo · 发表于 2024-6-27 12:59

各位老师好，有一个生成的表格如下图，怎么对按合并的单元格产线进行排序，用 VBA进行排序

小凡、、、 · 发表于 2024-6-27 13:49

Range("A3", Range("A65535").End(3)).Sort Columns(1)

limonet · 发表于 2024-6-27 14:27

等我找张图片上传。

3190496160 · 发表于 2024-6-27 14:35

排序功能可以设置有表头和没有表头两中模式的嘛

usedrange · 发表于 2024-6-27 14:57

可以试试这样
Set sh = [a1].CurrentRegion
sh.Sort key1:="产线", order1:=1, Header:=xlYes

ykcbf1100 · 发表于 2024-6-27 16:25

排序不带表头就行了，和表头的合并单元格无关。
如果上传附件，问题应该能很快解决。

whmomo · 发表于 2024-7-3 09:04

本帖最后由 whmomo 于 2024-7-3 09:06 编辑

ykcbf1100 发表于 2024-6-27 16:25
排序不带表头就行了，和表头的合并单元格无关。
如果上传附件，问题应该能很快解决。

不带表头要怎么用VBA写呢？1线在A3的单元格。

whmomo · 发表于 2024-7-3 09:41

本帖最后由 whmomo 于 2024-7-3 10:02 编辑

ykcbf1100 发表于 2024-6-27 16:25
排序不带表头就行了，和表头的合并单元格无关。
如果上传附件，问题应该能很快解决。

附件已上传，我写的区域是死的，不是随着数据量的增大而扩大

Sheet1.Range("A3:BB100").Sort KEY1:=Range("A3"), ORDER1:=xlAscending, Header:=xlNo

dragonthree · 发表于 2024-7-3 10:53

whmomo 发表于 2024-7-3 09:41
附件已上传，我写的区域是死的，不是随着数据量的增大而扩大

参考2楼的代码，end(3)

whmomo · 发表于 2024-7-3 11:16

dragonthree 发表于 2024-7-3 10:53
参考2楼的代码，end(3)

只对第1列进行排序了，后面的内容都没有变

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

[求助] 表头带合并的单元格怎么进行排序