(为什么)Excel当前细胞突出显示消失

Question

我在excel 2013中有一些非常简单的代码，该代码隐藏了一些列并在表中分类一些记录。由于某种原因，它也隐藏了当前的电池亮点。

不确定是代码还是Excel错误。有什么想法？

If ActiveWindow.FreezePanes = True Then ActiveWindow.FreezePanes = False
wsDailyCheckDump.Range("$B:$H, $J:$Q, $T:$W, $Y:$Z, $AB:$AB, $AD:$AK, $AM:$AN, $AS:$AV, $AZ:$BF, $BG:$BK, $BM:$DC, $DJ:$DL, $DN:$DR").Columns.Hidden = True

Set rngSortA = tblDailyCheck.ListColumns(49).Range
Set rngSortB = tblDailyCheck.ListColumns(18).Range
Set rngSortC = tblDailyCheck.ListColumns(9).Range
With tblDailyCheck.Sort
    .SortFields.Clear
    .SortFields.Add rngSortA, xlSortOnValues, xlAscending
    .SortFields.Add rngSortB, xlSortOnValues, xlAscending
    .SortFields.Add rngSortC, xlSortOnValues, xlAscending
    .Header = xlYes
    .MatchCase = False
    .Apply
End With
wsDailyCheckDump.Range("$X$5").Offset(1, 0).Select '.SpecialCells(xlCellTypeVisible).Offset(1, 0).Select
ActiveWindow.FreezePanes = True

Set rngA = wsDailyCheckDump.Range("$A$5").End(xlToRight)
rngA.Select
Set rngA = ActiveCell
rngA.Select

Answer 1

.Select移动活动（电流）单元格。您必须将ActiveCell的位置保存到范围变量和 .Select中，该变量在您的子例程结束之前。