看了你的问题结合你的追问,写了如下代码,不知道是否符合你的要求.代码如下:同时提供例子附件Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim Dic, BolDim iRow As Long, Rng As RangeIf Target.Rows.Count = 1 And Target.Cells.Count = Rows(1).Cells.Count Then
Set Dic = CreateObject("Scripting.Dictionary")
iRow = Target.Row
For i = 1 To 11
Dic(Cells(...