VBa和Excel :从特定项目编号中汇总突出显示的单元格值，然后从其他表格中减去单元格值并显示在下一列中

Sub SummarizeValues()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim cell As Range
    Dim projectNumber As String
    Dim totalValue As Double
    
    ' 设置源表格和目标表格
    Set sourceSheet = ThisWorkbook.Worksheets("源表格名称")
    Set targetSheet = ThisWorkbook.Worksheets("目标表格名称")
    
    ' 设置源表格中特定项目编号的范围
    Set sourceRange = sourceSheet.Range("特定项目编号的范围")
    
    ' 设置目标表格中显示结果的起始单元格
    Set targetRange = targetSheet.Range("目标表格起始单元格")
    
    ' 遍历源表格中的每个特定项目编号
    For Each cell In sourceRange
        projectNumber = cell.Value
        
        ' 根据特定项目编号在其他表格中查找对应的单元格值
        ' 这里可以使用Excel函数如VLOOKUP或INDEX/MATCH等进行查找
        
        ' 假设找到的单元格值存储在变量value中
        value = 100 ' 这里需要替换为实际的查找逻辑
        
        ' 计算总值
        totalValue = cell.Value - value
        
        ' 在目标表格中显示结果
        targetRange.Value = totalValue
        
        ' 移动到下一列
        Set targetRange = targetRange.Offset(0, 1)
    Next cell
End Sub