用宏语言实现定位并复制

echotiny

就是要把表格名称为含有“8” 的，，就是要8月份的，不用7月份
定位其中为“优秀”的员工  并把那一列复制到第一个表，可以不用管表头那些什么部门
因为后面各个部门的表格存在长度不一，还有多车间


要求效果大概是这样子的
财务部8  李四 .................    优秀
人事部8  黄八..................    优秀
生产部8  程咬金............................优秀
...................................

这样子

xuemei0216

Sub a()
Dim sht As Worksheet, rng As Range, n&
[a1].CurrentRegion.ClearContents
[a1] = "部门": [b1] = "姓名": [c1] = "备注"
For Each sht In Sheets
    If sht.Name <> ActiveSheet.Name And sht.Name Like "*8" Then
        For Each rng In sht.UsedRange
            If rng = "优秀" Then
                [a2].Offset(n) = sht.Name
                [b2].Offset(n) = sht.Cells(rng.Row, 1)
                [c2].Offset(n) = rng.Value
                n = n + 1
            End If
        Next
    End If
Next
End Sub

echotiny

xuemei0216 发表于 2019-9-29 17:39
Sub a()
Dim sht As Worksheet, rng As Range, n&
[a1].CurrentRegion.ClearContents

你好 谢谢你的回答   那如果是第一个表格没有优秀员工  这表格要如何修改   

echotiny

xuemei0216 发表于 2019-9-29 17:39
Sub a()
Dim sht As Worksheet, rng As Range, n&
[a1].CurrentRegion.ClearContents

你好 谢谢你的回答   那如果是第一个表格没有优秀员工  这表格要如何修改     还有可不可以复制“优秀”所在单元格前面的所有内容过来  蟹蟹