VBA
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, "★_"…
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, "★_"…