按行拆分，并且按照一定条件排序，但列数不固定

高个子

按行拆分，并且按照一定条件排序
https://club.excelhome.net/thread-1643307-1-1.html
(出处: ExcelHome技术论坛)

今早我问了这个问题，4楼老师的代码很好用，但是后来测试不同数据源时发现概念那一列不确定在哪一列，可能比这个列少也可能多，但能保证在最后一列，请问应该怎么改代码才能通用呢？

鄂龙蒙

Table3修改1.rar (81.62 KB, 下载次数: 10)

2022-10-20 17:50 上传

点击文件名下载附件

高个子

鄂龙蒙 发表于 2022-10-20 17:50

感谢大佬，根据大佬的思路我自行查了一下，完全解决了

zyhui1961

老师您好！ 请你帮忙：下面是我录制的宏的内容，单独运行没有问题。       Sheets("成绩查询").Select     Range("AA5:AA69").Select     Selection.Copy '复制文本     Range("Z5").Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=F alse, Transpose:=False '粘贴数值     Range("Z5").Select 可是我加一个工作表事件，为什么就运行不了？ Private Sub Worksheet_Change(ByVal Target As Range) '工作表触发事件     Set Myrng = Range("A1")        Sheets("成绩查询").Select     Range("AA5:AA69").Select'老是从这个地方开始卡住了     Selection.Copy '复制文本     Range("Z5").Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False '粘贴数值     Range("Z5").Select End Sub

zyhui1961

高个子 发表于 2022-10-20 19:49
感谢大佬，根据大佬的思路我自行查了一下，完全解决了

老师您好！
请你帮忙：下面是我录制的宏的内容，单独运行没有问题。


    Sheets("成绩查询").Select
    Range("AA5:AA69").Select
    Selection.Copy '复制文本
    Range("Z5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=F
alse, Transpose:=False '粘贴数值
    Range("Z5").Select
可是我加一个工作表事件，为什么就运行不了？
Private Sub Worksheet_Change(ByVal Target As Range) '工作表触发事件
    Set Myrng = Range("A1")   
    Sheets("成绩查询").Select
    Range("AA5:AA69").Select'老是从这个地方开始卡住了
    Selection.Copy '复制文本
    Range("Z5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False '粘贴数值
    Range("Z5").Select
End Sub