VBA一对多如何求和勾对？

ykcbf1100

excel1202 发表于 2024-3-17 13:08
原始的表格是没有颜色的。清除颜色后，运行不正确啊，A列被修改了

你的要求就是按颜色求和的，你现在又说清除颜色求和不正确。
你真是个天才。

taller

代码测试没有问题，不知道你是如何用的

VBA一对多如何求和勾对.zip (16.3 KB, 下载次数: 14)

2024-3-17 13:58 上传

点击文件名下载附件

excel1202

ykcbf1100 发表于 2024-3-17 13:52
你的要求就是按颜色求和的，你现在又说清除颜色求和不正确。
你真是个天才。

即以A列编号的数值等于G列相同编号的数值之和，勾对相符的标上相同的颜色

怪我没有说清楚，让大侠误解了，请多包涵

excel1202

taller 发表于 2024-3-17 13:58
代码测试没有问题，不知道你是如何用的

这个可以得出正确的勾对结果了，大感谢版主了！

ykcbf1100

excel1202 发表于 2024-3-17 13:58
即以A列编号的数值等于G列相同编号的数值之和，勾对相符的标上相同的颜色

怪我没有说清楚，让大侠误解 ...

好吧，也怪我没理解清楚题意。
既然已经解决了，我就不写了吧。

gwjkkkkk

感觉有点凑数的情况。。。

tarim19738

Sub test()
  Dim i%, j%, n%
  n = 3
  For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
   
    For j = 2 To Cells(Rows.Count, "g").End(xlUp).Row
       If Cells(i, 1) = Cells(j, "g") Then
        Range("a" & i & ":" & "b" & i).Interior.ColorIndex = n
        Range("g" & j & ":" & "h" & j).Interior.ColorIndex = n
      
       End If
                    
    Next
  n = n + 1
  Next

End Sub

tarim19738

Sub test()
  Dim i%, j%, n%
  n = 3
  For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
   
    For j = 2 To Cells(Rows.Count, "g").End(xlUp).Row
       If Cells(i, 1) = Cells(j, "g") Then
        Range("a" & i & ":" & "b" & i).Interior.ColorIndex = n
        Range("g" & j & ":" & "h" & j).Interior.ColorIndex = n
      
       End If
                    
    Next
  n = n + 1
  Next

End Sub