Functionsql_to_sht(sql,sht,OptionalByValrng="a1")sht.Range(rng).CurrentRegion.ClearContentsForEachpivInsht.PivotTablespiv.PivotSelect"",xlDataAndLabel,TrueSelection.ClearContentsNext�