2015-01-08から1日間の記事一覧
n A B C 1 ◯ ◯ 2 ◯ ◯ 3 ◯ ◯ ◯ この表を 1 A ◯ 1 C ◯ 2 B ◯ 2 C ◯ 3 A ◯ 3 B ◯ 3 C ◯ こういう風に整形 Option Base 1 Sub hogehoge() Dim i&, j&, result(), oldUbound Redim result(3, 1) With Selection For i=2 to .Rows.Count For j=2 to .Columns.Count…