>>207
失礼な、僕は逃げも隠れもしません
>>79に対する解答をお示しします、ご査収ください

Files = ReadCsvFiles("*.csv")
Data = ReadCalcPower(Files)
Sort Data, "desc"
ExportExcel Data