Question

Excel 怎么设置 选中一个单元格后，整行/整列的颜色都变化

Answer 1

Dim I As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If I = 0 Then I = 1
Rows(I).Interior.Pattern = xlNone
I = Target.Row
Rows(I).Interior.Color = vbGreen
Rows(I).Font.ColorIndex = vbBlack
End Sub

Private Sub Worksheet_Activate()
Dim I As Long
I = Date
With Application.WorksheetFunction
If .CountIf(Range("A:A"), I) Then
Cells(.Match(I, Range("A:A"), 0), 1).Select
End If
End With
End Sub

以上代码移除后字体显示为黑色，选中单元格后，整行背景色变为绿色。且切换回工作表时，自动定位到当前日期行，目前我自己在用，搜索资料时看到了，就将代码贴上来，希望采纳

Answer 2

我是2010版本的，ALT+F11跳转至VB编辑界面，在该sheet模块中复制下列代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rows().Interior.ColorIndex = 0
x = ActiveCell.Row
Rows(x).Interior.ColorIndex = 24 '淡蓝色
End Sub

Answer 3

选中第一行（标题行），数据＞筛选＞自动筛选，在姓名列中选“赵云”，这样仅显示所有赵云的行，选中这些数据复制就行。

Answer 4

用VBA代码能轻易做到。

Answer 5