Excel中怎么同时选中满足特定条件的行或列?

VBA

可用以下VBA程序快速选定：Sub选A列等于1()DimragAsRange,ragsAsRangeForEachragInRange(A:A)Ifrag.Value=1ThenIfragsIsNothingThenSetrags=ragElseSetrags=Union(rags,rag)EndIfEndIfNextrags.SelectEndSub