1. 顽石财经首页
  2. 专题归档

VBA获取A列下边框颜色为浅蓝的单元格

Sub 获取A列下边框颜色为浅蓝的单元格()
    Dim rng As Range
    Dim ys
        For Each rng In Range("A:A")
            If rng.Borders(xlEdgeBottom).ColorIndex = 33 Then
                ys = rng.Row
                Exit For
            End If
        Next
End Sub

本文来自用户投稿,不代表顽石财经立场;如侵犯了您的权益,请与本站联系;如若转载,请注明出处:https://www.rocknod.com/1370.html

发表评论

登录后才能评论
QR code