AB..猫咪🐈:
以A列为基础数据,排序后结果放在B列。参见代码,上传不了附件,甚歉!Subtest()DimR,ShAsWorksheetSetSh=Sheets(1)Sh.[B2:B65536].ClearContentsForR=2ToSh.[A65536].End(xlUp).RowIfInStr(Sh.Cells(R,1),"广州")0ThenSh.Cells([B65536].End(xlUp).Row+1,2)=Sh.Cells(R,1)EndIfNextForR=2ToSh.[A65536].En....