怎么把工作簿里用黄色底纹标记的单元格所在的行提取数据出来

fxl447098457

......附件。。。。。。 2014年江苏公务员考试职位表.rar (217.24 KB, 下载次数: 25)

2017-11-20 07:40 上传

点击文件名下载附件

zhouxing2008

duquancai 发表于 2017-11-19 21:22
Sub shishi()
    Dim sht As Worksheet, str$, c As Range, n&, r&
    str = "新表中"

真心太感谢了！我好好研究下

zhouxing2008

fxl447098457 发表于 2017-11-20 07:40

谢谢！谢谢大家这么热心，好好学习下两种不同的程序！

zhouxing2008

duquancai 发表于 2017-11-19 21:22
Sub shishi()
    Dim sht As Worksheet, str$, c As Range, n&, r&
    str = "新表中"

哎呀Application.FindFormat.Clear
    Application.FindFormat.Interior.Color = 65535，Do
                    r = Sheets(str).Cells(Rows.Count, 1).End(3).Row + 1
                    Sheets(str).Range("a" & r & ":n" & r) = sht.Range("a" & c.Row & ":n" & c.Row).Value
                    Set c = sht.Range("c:c").Find(what:="", After:=c, SearchFormat:=True)
                Loop Until c.Address = asd这两部分看不懂，如果我要把黄色底纹标记的行提取出来，但是只提取C    E   G   L  列的数据又该怎么修改程序啊，求指点！！！麻烦老师了

zhouxing2008

fxl447098457 发表于 2017-11-20 07:40

谢谢老师， If .AutoFilterMode = False Then .[A5].AutoFilter
        .AutoFilter.Range.AutoFilter Field:=3, Criteria1:=RGB(255, _
        255, 0), Operator:=xlFilterCellColor   这个部分的程序 If .AutoFilterMode = False Then .[A5].AutoFilter
和下面的 .AutoFilter.Range.AutoFilter Field:=3, Criteria1:=RGB  是连在一起的吗？？？求指点，如果我只想提取黄色底纹标记数据所在的   C E G L 列的数据，应该怎么修改程序啊，麻烦老师了

fxl447098457

zhouxing2008 发表于 2017-11-26 16:30
谢谢老师， If .AutoFilterMode = False Then .[A5].AutoFilter
        .AutoFilter.Range.AutoFilter  ...

不要的删除掉就行了，后面加上一句：
Sheets("汇总").Range("A:B,D:D,F:F,H:K,M:N").Delete xlShiftToLeft
就留下了你需要的。

fxl447098457

zhouxing2008 发表于 2017-11-26 16:30
谢谢老师， If .AutoFilterMode = False Then .[A5].AutoFilter
        .AutoFilter.Range.AutoFilter  ...

效果见附件的汇总表，代码也更新了。。。 2014年江苏公务员考试职位表.rar (219.12 KB, 下载次数: 12)

2017-11-26 16:43 上传

点击文件名下载附件

zhouxing2008

fxl447098457 发表于 2017-11-26 16:43
效果见附件的汇总表，代码也更新了。。。

好迅速，谢谢老师， If .AutoFilterMode = False Then .[A5].AutoFilter
        .AutoFilter.Range.AutoFilter Field:=3, Criteria1:=RGB(255, _
        255, 0), Operator:=xlFilterCellColor   这个部分的程序 If .AutoFilterMode = False Then .[A5].AutoFilter
和下面的 .AutoFilter.Range.AutoFilter Field:=3, Criteria1:=RGB  是连在一起的吗？？？求指点

fxl447098457

zhouxing2008 发表于 2017-11-26 17:08
好迅速，谢谢老师， If .AutoFilterMode = False Then .[A5].AutoFilter
        .AutoFilter.Range.Aut ...

肯定啊。没有进入筛选模式肯定无法执行自动筛选的操作啊。所以我就判断如果没有筛选模式下就让其进入筛选模式，然后才有后面的按照颜色进行筛选的操作啊。然后筛选完毕得到了数据后又取消了筛选模式恢复本来面貌。

zhouxing2008

fxl447098457 发表于 2017-11-26 17:11
肯定啊。没有进入筛选模式肯定无法执行自动筛选的操作啊。所以我就判断如果没有筛选模式下就让其进入筛选 ...

Then .[A5].AutoFilter   老师这句话什么意思啊