关于excel的一个问题,可能要用到VBA,所有积分都给您!

2025-05-08 22:26:47
推荐回答(3个)
回答1:

亲,首先将你的统计文件和所有人的总结文件放在同一个文件夹中。

打开你的Excel统计文件,按“Alt+F11”打开VBA编辑窗口,然后在左侧对应的Sheet上双击,右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口,选择刚插入的宏,点击“执行”。

 

Sub jcl()
Dim f, ff As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ff = fso.getfolder(ThisWorkbook.Path & "\")
Dim rg As Range
For Each rg In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    For Each f In ff.Files
        If f.Name <> ThisWorkbook.Name And Left(f.Name, 2) <> "~$" Then
            If InStr(f.Name, rg.Value) > 0 Then rg.Offset(0, 1).Value = "是": Exit For Else rg.Offset(0, 1).Value = "否"
        End If
    Next f
Next
Set fso = Nothing
End Sub

回答2:

这个简单,我接受这个任务,一会发文件给你。
10 分钟做不好,先占位。你追问后我再发附件给你,可多得20分哈

回答3:

提取表名,用函数最后获取结果