求大神帮忙解决 急用

oyygo

需求在excel表内

microyip

对着伸手党，真不知道说什么好

liulang0808

删除部分，可以从右往左遍历，判断单元格底色，然后决定是否删除
排序部分，可以自己录制宏

oyygo

liulang0808 发表于 2019-10-7 15:01
删除部分，可以从右往左遍历，判断单元格底色，然后决定是否删除
排序部分，可以自己录制宏

原来是没有底色的 我加了方便说明 大佬请赐教

oyygo

microyip 发表于 2019-10-7 15:01
对着伸手党，真不知道说什么好

不会编程  大佬还望请赐教

oyygo

microyip 发表于 2019-10-7 15:01
对着伸手党，真不知道说什么好

不会编程  大佬还望赐教

liulang0808

oyygo 发表于 2019-10-7 15:02
原来是没有底色的 我加了方便说明 大佬请赐教

楼主录制一段宏，查查论坛怎么录制 宏

chenyun1234

microyip 发表于 2019-10-7 15:01
对着伸手党，真不知道说什么好

应该直接删帖，直接删除及排序

深秋的黎明

排序的代码可以参照下面几行：
With Sheet1
.Range("A2:Z9").Sort Key1:=.Range("O1")
End With
至于你想删除黄色背景的列，那还不如隐藏。
建议你在做表格之前，考虑周全，要人性化和可操作性。

oyygo

chenyun1234 发表于 2019-10-7 15:56
应该直接删帖，直接删除及排序

你算啥 删我帖子 自己录制了一段宏 改了下可以满足功能了
Sub auto()
    Range("C:C,D:D,E:E,J:J,I:I,K:K,L:L,M:M,N:N,R:R,S:S,T:T,U:U,V:V,W:W,X:X,Y:Y,Z:Z").Select
    Range("C1").Activate
    Selection.Delete Shift:=xlToLeft

    ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("1").Sort.SortFields.Add Key:= _
        Range("F1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("1").Sort
        .SetRange Range("A2:H500")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

End Sub