EXCEL中如何高亮显示所选单元格所在的行列-马春杰杰

Private LastRow As Long
Private LastCol As Long

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim rng As Range
    Set rng = Range("A1:Z1000")  ' ← 改成你的数据区域

    Application.ScreenUpdating = False

    ' 1) 清除上一次的高亮（只清上一行+上一列）
    If LastRow <> 0 Then
        Intersect(rng, Rows(LastRow)).Interior.Pattern = xlNone
        Intersect(rng, Columns(LastCol)).Interior.Pattern = xlNone
    End If

    ' 2) 记录本次位置
    LastRow = Target.Row
    LastCol = Target.Column

    ' 3) 画本次的十字高亮
    Intersect(rng, Rows(LastRow)).Interior.Color = RGB(220, 230, 241)
    Intersect(rng, Columns(LastCol)).Interior.Color = RGB(220, 230, 241)

    Application.ScreenUpdating = True

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

Private LastRow As Long

Private LastCol As Long

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim rng As Range

Set rng = Range("A1:Z1000") ' ← 改成你的数据区域

Application.ScreenUpdating = False

' 1) 清除上一次的高亮（只清上一行+上一列）

If LastRow <> 0 Then

Intersect(rng, Rows(LastRow)).Interior.Pattern = xlNone

Intersect(rng, Columns(LastCol)).Interior.Pattern = xlNone

End If

' 2) 记录本次位置

LastRow = Target.Row

LastCol = Target.Column

' 3) 画本次的十字高亮

Intersect(rng, Rows(LastRow)).Interior.Color = RGB(220, 230, 241)

Intersect(rng, Columns(LastCol)).Interior.Color = RGB(220, 230, 241)

Application.ScreenUpdating = True

End Sub

Private LastRow As Long

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rng As Range
    Set rng = Range("A1:Z1000") ' ←改成你的区域

    Application.ScreenUpdating = False

    ' 清上一次
    If LastRow <> 0 Then
        Intersect(rng, Rows(LastRow)).Interior.Pattern = xlNone
    End If

    ' 画本次
    LastRow = Target.Row
    Intersect(rng, Rows(LastRow)).Interior.Color = RGB(220, 230, 241)

    Application.ScreenUpdating = True
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19