A B C 1 ねこ いぬ うさぎ 2 にゃー わん きっ 3 たま ぽち うさ Sub sample1() Dim dic1 As dictionary Set dic1 = New dictionary Dim dic2 As dictionary Set dic2 = New dictionary For Each Item In Sheets(1).Range("A1:C1") Call dic1.Add(Item, "★_"…

$ pwd; find . | sort | sed '1d;s/^\.//;s/\/\([^/]*\)$/|--\1/;s/\/[^/|]*/| /g'