运行macros后返回到原始单元格

我已经logging了一个macros，然后把代码放入它来记住活动的单元格，然后把函数返回给那个单元格。 在代码和myActiveCell.Activate的开始处Set myActiveCell = ActiveCell的目的不是注册我的活动单元格是A14，然后在运行我的sorting函数后返回给我，而是注册我在A14之前函数，然后在函数运行后将我返回给该单元格（不再需要A14）。 我在做什么错了，我如何使它正常工作？

 Set myActiveCell = ActiveCell If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData End If ActiveWorkbook.Worksheets("Data").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Data").Sort.SortFields.Add Key:=Range("K2:K600"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("Data").Sort.SortFields.Add Key:=Range("B2:B600"), _SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("Data").Sort.SortFields.Add Key:=Range("e2:e600") SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("Data").Sort.SortFields.Add Key:=Range("C2:C600"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Data").Sort .SetRange Range("A1:zz600") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With myActiveCell.Activate End Sub 

TIA

Answer 1

如何给单元格添加评论，然后在sorting评论之后search，如下所示：

 Sub AddThenFindComment() Dim myActiveCell As Range Set myActiveCell = Selection myActiveCell.AddComment "StartCell" 'OTHER CODE Cells.Find(What:="StartCell", After:=Range("A1"), LookIn:=xlComments, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate Selection.ClearComments End Sub