随便写了几句代码，供楼主参考：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 And Target.Column = 2 Then '如果只选择了一个单元格而且在 B 列
If Target.Row > 25 And Target.Row < 32 Then '如果选择的单元格介于26～31行
Cells(26, 8).Value = Target.Row - 25 '计算 G26 单元格的值
Else
Cells(26, 8) = Empty
End If
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024