PQ学习笔记(边学边记录)

关于使用PQ合并表后出现大量重复数据的解决方法

方法一：在PQ中直接在Kind列，筛选Sheet,

方法二，使用VBA,插入模块，使用以下代码可永久清除重复数据

Sub ()

Excel.Application.ScreenUpdating = False

Set FSO对象 = CreateObject("Scripting.FileSystemObject")

Set 文件夹 = FSO对象.GetFolder("E:\文件对应路径")（此路径按实际变更）

For Each i In 文件夹.Files

    Set 工作簿 = Workbooks.Open(i)

    For Each a In 工作簿.Names

        工作簿.Names(a.Name).Delete

    Next

    工作簿.Save

    工作簿.Close

Next

Excel.Application.ScreenUpdating = True

End Sub