[已解决]VBA颜色排序时，弹出错误提示

yjwdjfqb

VBA颜色排序时，弹出错误提示

弹出91的错误提示，请朋友们帮帮忙，谢谢大家了！

（我删除提示错误的那一句，能执行命令，但那一句判断选区有无合并单元格的，那一句必须要）

VBA颜色排序时，弹出错误提示.rar (12.63 KB, 下载次数: 3)

2014-5-14 11:46 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

qh8600

2014-5-14 12:10

把这句
With rng(1).Offset(0, -x + 1).Resize(j, y - 1)
        If 排序方式 = vbYes Then If rngⅤ Or IsNull(.rngⅤ) Then MsgBox "选择区域所在行存在合并单元格": Exit Sub
End With

改为这句试试
If 排序方式 = vbYes Then If rng(1).Offset(0, -x + 1).Resize(j, y - 1).MergeCells Or IsNull(rng(1).Offset(0, -x + 1).Resize(j, y - 1).MergeCells) Then MsgBox "选择区域所在行存在合并单元格": Exit Sub

VBA颜色排序时，弹出错误提示.rar (12.82 KB, 下载次数: 14)

2014-5-14 12:10 上传

点击文件名下载附件

跳转到最佳答案楼层

qh8600

把这句
With rng(1).Offset(0, -x + 1).Resize(j, y - 1)
        If 排序方式 = vbYes Then If rngⅤ Or IsNull(.rngⅤ) Then MsgBox "选择区域所在行存在合并单元格": Exit Sub
End With

改为这句试试
If 排序方式 = vbYes Then If rng(1).Offset(0, -x + 1).Resize(j, y - 1).MergeCells Or IsNull(rng(1).Offset(0, -x + 1).Resize(j, y - 1).MergeCells) Then MsgBox "选择区域所在行存在合并单元格": Exit Sub

VBA颜色排序时，弹出错误提示.rar (12.82 KB, 下载次数: 14)

2014-5-14 12:10 上传

点击文件名下载附件

yjwdjfqb

qh8600 发表于 2014-5-14 12:10
把这句
With rng(1).Offset(0, -x + 1).Resize(j, y - 1)
        If 排序方式 = vbYes Then If rngⅤ Or ...

谢谢朋友的帮助，问题解决了！