1、表格批量改名，2、获取并汇总数据

flyfred

各位大佬们，，，请教：两个问题。1、改名。出现错误了。。2、价格排名汇总表-获取包1内所有"价格得分"是100分的投标人（投标价格由低到高排列），同时自动填充对应包号栏中（结果如“事例”工作簿），请大佬，方便的时候，帮忙解决下，谢谢。

沈默00

包3的名称按投标信息表的对应数据要改成包15，可你后面的表里有包15，重名了。。。。。

沈默00

3190496160

Sub 重命名()
Dim d As Object, dc As Object
Set d = CreateObject("scripting.dictionary")
For Each sh In Sheets
    If sh.Name Like "包*" Then
        d(sh.Name) = ""
    End If
Next sh
n = 1
For i = 2 To Sheets.Count
    Name1 = Worksheets(i).Name
    If Name1 Like "包*" Then
        n = n + 1
        mc = Sheet6.Cells(n, 1).Value
        If d.exists(mc) Then
            Sheets(mc).Name = mc & n & n
        End If
        Worksheets(i).Name = Sheet6.Cells(n, 1).Value
    End If
Next i
MsgBox "ok!"
End Sub

3190496160

3190496160

算术平均值浮动法.rar (1.49 MB, 下载次数: 4)

2024-6-27 09:40 上传

点击文件名下载附件

flyfred

3190496160 发表于 2024-6-27 09:41

感谢大佬，，请问，第二个问题解决吗

3190496160

flyfred 发表于 2024-6-27 10:32
感谢大佬，，请问，第二个问题解决吗

第二个问题，不明白要如何做

flyfred

3190496160 发表于 2024-6-27 10:43
第二个问题，不明白要如何做

汇总后面文件表中的数据。例如把包1内所有的得分100的厂家统计出来，然后统计包2内的