将带颜色的数值，用线条链接，按照从上到下的顺序

乐器批发

chxw68

没有细细琢磨。

gwjkkkkk

Option Explicit
Sub test()
    Dim ar, i&, j&, k&, n&, x1#, y1#, x2#, y2#
   
    Application.ScreenUpdating = False
    ActiveSheet.Lines.Delete
   
    With [H2:AM101]
        For k = 1 To .Columns.Count Step 11
            With .Cells(1, k).Resize(.Rows.Count, 10)
                ar = .Value
                n = 0
                For i = 2 To UBound(ar)
                    For j = 1 To UBound(ar, 2)
                         If .Cells(i, j).DisplayFormat.Interior.ColorIndex = -4105 Then
                             If n = 1 Then
                                 x2 = .Cells(i, j).Left + .Cells(i, j).Width / 2
                                 y2 = .Cells(i, j).Top + .Cells(i, j).Height / 2
                                 With ActiveSheet.Shapes.AddLine(x1, y1, x2, y2).Line
                                    .BeginArrowheadStyle = msoArrowheadOval
                                    .Weight = 1.14
                                    .ForeColor.RGB = RGB(216, 31, 42)
                                 End With
                                 x1 = x2: y1 = y2
                             Else
                                 x1 = .Cells(i, j).Left + .Cells(i, j).Width / 2
                                 y1 = .Cells(i, j).Top + .Cells(i, j).Height / 2
                                 n = 1
                             End If
                         End If
                    Next j
                Next i
            End With
        Next k
    End With
   
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

没看懂你标色的条件格式。。。

excel玉米

用下面代码判断，所有的单元格底色都是纯色，这就搞不会了，无从判断。

ykcbf1100

excel玉米 发表于 2024-4-14 12:23
用下面代码判断，所有的单元格底色都是纯色，这就搞不会了，无从判断。

可能是条件格式。

乐器批发

excel玉米 发表于 2024-4-14 12:23
用下面代码判断，所有的单元格底色都是纯色，这就搞不会了，无从判断。

右侧带颜色的数值，是用条件格式做的，可以先把条件格式清除掉，然后用VBA来标记
比如：图1 ，就是把G列数据，对照“H2:Q2”区域数值，分布提取到“H3:Q101”区域
       然后按照“从上到下的顺序”用线条链接

ooluckydog

根据条件格式和单元格的公式，猜的

gwjkkkkk

请参考附件。。。