Microsoft Excel SharePoint中跨表静态数据提取及追加实现咨询

这个需求完全可行，以下是两种适配SharePoint Excel环境的实现方案：

方法一：Power Query（推荐，无需代码） #

Power Query可自动识别Sheet1的新增数据并追加至Sheet2，且不会改动Sheet2已有的历史数据：

1. 打开SharePoint上的目标Excel文件，切换到数据选项卡，点击「获取数据 > 自文件 > 自工作簿」，选择当前打开的工作簿。
2. 在导航器中选中Sheet1，点击「转换数据」进入Power Query编辑器。
3. 对Sheet1数据做基础清洗（比如移除空行、统一列格式），确保和Sheet2的列结构完全匹配。
4. 点击「关闭并上载至」，选择「仅创建连接」，勾选「加载时刷新」。
5. 切换到Sheet2，点击「数据 > 获取数据 > 自其他来源 > 自查询」，选择刚创建的Sheet1连接。
6. 在Power Query编辑器中，点击「合并查询 > 将查询合并为新查询」，以Sheet2为左表、Sheet1查询为右表，用唯一标识列（比如项目ID、任务编号）做匹配，选择「左反连接」（筛选出Sheet1中未在Sheet2出现的新增数据）。
7. 将筛选出的新增数据追加到Sheet2：点击「关闭并上载」，选择追加到Sheet2的现有数据区域。
8. 设置自动刷新：在「数据」选项卡点击「全部刷新 > 连接属性」，勾选「打开文件时刷新数据」，也可按需设置定时刷新。

方法二：VBA宏（适合有代码基础的用户） #

通过VBA编写宏对比Sheet1和Sheet2的数据，仅追加新增项：

1. 打开Excel文件，按Alt + F11打开VBA编辑器。
2. 插入新模块，粘贴以下代码（需根据实际情况修改唯一标识列，示例中用A列作为判断依据）：

Sub AppendNewProjects()
    Dim sourceSheet As Worksheet, targetSheet As Worksheet
    Dim lastRowSource As Long, lastRowTarget As Long
    Dim i As Long, j As Long
    Dim projectExists As Boolean
    
    ' 指定数据源表和目标表
    Set sourceSheet = ThisWorkbook.Sheets("Sheet1")
    Set targetSheet = ThisWorkbook.Sheets("Sheet2")
    
    ' 获取两个表的最后一行行号
    lastRowSource = sourceSheet.Cells(Rows.Count, "A").End(xlUp).Row
    lastRowTarget = targetSheet.Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 遍历Sheet1的每一行数据（跳过表头行）
    For i = 2 To lastRowSource
        projectExists = False
        ' 对比Sheet2已有的数据，判断当前项目是否已存在
        For j = 2 To lastRowTarget
            If sourceSheet.Cells(i, "A").Value = targetSheet.Cells(j, "A").Value Then
                projectExists = True
                Exit For
            End If
        Next j
        
        ' 若项目不存在，则复制整行到Sheet2末尾
        If Not projectExists Then
            lastRowTarget = lastRowTarget + 1
            sourceSheet.Rows(i).Copy targetSheet.Rows(lastRowTarget)
        End If
    Next i
    
    MsgBox "新增项目已成功追加！"
End Sub

3. 将文件保存为启用宏的工作簿（.xlsm），在SharePoint中确认宏权限已开启（需符合组织的宏安全设置）。
4. 可手动执行宏，也可添加Worksheet_Change事件，实现Sheet1数据变更时自动触发追加操作。

关键注意事项 #

• 必须设置唯一标识列（如项目ID、任务编号），用来判断数据是否已存在于Sheet2，避免重复追加。
• 使用Power Query时，若Sheet1的列结构发生变化，需同步更新查询规则。
• VBA方法需注意SharePoint的宏权限限制，部分组织可能禁止未签名的宏运行。

内容的提问来源于stack exchange，提问作者Heather Kindermann