Dim last_row As Integer last_row = Cells(Rows.Count, 1).End(xlUp).Row Range("A1").Select Selection.CurrentRegion.Select Selection.Copy Cells(last_row + 1, 1).PasteSpecial Transpose:=True Rows("1:" & last_row).Delete Shift:=xlUp

インデックスの変更 A B day_of_the_week 2018/1/1 1.2 13.5 Mon 2018/1/10 2.5 12.1 Wed 2018/1/15 1.4 10.9 Mon 2018/1/22 3.2 11.5 Mon 2018/2/5 1.8 10.6 Mon 2018/2/12 2.2 10.1 Mon 2018/2/19 2.8 11.7 Mon 2018/2/26 3.4 12.5 Mon 2018/3/5 1.9 10.0 …

初めに 環境 バージョンの確認（pip freeze） 写真（「sample.jpg」） コード 結果 感想 初めに GluonCV 0.5.0が公開された。 「inceptionv3_kinetics400」のpretrained modelが使用できるようになった。 今回は静止画のデモのみ行った。 環境 Windows 10 Pr…