Excel 使用vba删除重复的行并增加列的权重

我试图为源单元格和目标单元格添加权重…所以我这样做：

  ' .Resize(, 4) = Array("Source", "Target", "Label", "Weight")
    .........

    Range(sStartingCellOutput).Offset(lRowOffset, lColOffset).Resize(1,4).Value = _
  Array(sq(lUser_1, 2), sqq(lUser_2), rTopic.Value,1)'

结果是这样的：

  'Source   Target  Label   Weight
    2955    7733    1       1
    7733    2955    1       1
    2961    6498    2       1
    6498    2961    2       1
    2961    2962    3       1
    2961    2962    3       1
    2962    2961    3       1
    2962    2961    3       1'

    ' Source    Target  Label   Weight
      2955      7733        1       1
      7733      2955        1       1
      2961      6498        2       1
      6498      2961        2       1
      2961      2962        3       2
      2962      2961        3       2'

但我不想显示重复行（源和目标），我想删除重复并增加权重。。。 像这样：

  'Source   Target  Label   Weight
    2955    7733    1       1
    7733    2955    1       1
    2961    6498    2       1
    6498    2961    2       1
    2961    2962    3       1
    2961    2962    3       1
    2962    2961    3       1
    2962    2961    3       1'

    ' Source    Target  Label   Weight
      2955      7733        1       1
      7733      2955        1       1
      2961      6498        2       1
      6498      2961        2       1
      2961      2962        3       2
      2962      2961        3       2'

有什么帮助吗

谢谢你，举个例子：（asuming

A1=Source

/

B1=Target

/

C1=Label

/

D1=Weight

）

---

将完全按照您的要求执行（以缓慢的方式）

您是要在以后运行宏，还是要更改现有的宏以便它自动执行此操作？我希望在运行宏代码时自动执行此操作…！：逐行检查数据。。。如果两行匹配，则将上一行增加下一行的权重，并删除下一行。。。你试过了吗？没有，我会试一下..谢谢：）你能给我一个例子（匹配）…它对我不起作用..对不起：$另一个问题：我能让这段代码在access的vba中工作吗？？它在excel（csv文件）中对小数据起作用…但对大数据挂起..所以我使用access在csv中加载所有文件，我想在其中运行vba代码，但它不起作用…：S..excel中的vba代码在access中是不同的还是什么。。。非常感谢…我很抱歉问得太多了…这是。。。因为你的数据集就像。。。嗯。。。属性的集合，而excelsheet更像是二维数组。csv文件有多大（以kb/mb为单位）？csv文件其中一个文件的大小为100万kb.：S1 GB。。那么最好使用Access。。。无论如何：D或逐行循环文件（速度更快，但如果出现任何问题，可能会导致混乱：/