vba_code

(’＊）)

'*)

(ｗｏｒｋｓｈｅｅｔｓ（””）)

worksheets("")

(ｌｉｓｔｏｂｊｅｃｔｓ（１）)

listobjects(1)

(’＊１）)

'*1)

(ｔａｋａｔｓｕｋａｐｌａｎ＠ｇｍａｉｌ．ｃｏｍ)

takatsukaplan@gmail.com

(たかつか)

高塚

(ｗｏｒｋｓｈｅｅｔｆｕｎｃｔｉｏｎ)

worksheetfunction

(ｄｅｂｕｇ．ｐｒｉｎｔ)

debug.print

(ｄｉｍ　ｃ　ａｓ　ｃｌａｓｓ：ｓｅｔ　ｃ　＝　ｎｅｗ　ｃｌａｓｓ)

dim c as class:set c = new class

(ｃｏｌｕｍｎｓ)

columns

(ｒｏｗｈｅｉｇｈｔ)

rowheight

(ｏｎ　ｅｒｒｏｒ　ｒｅｓｕｍｅ　ｎｅｘｔ)

On Error Resume Next

(ｏｎ　ｅｒｒｏｒ　ｇｏｔｏ　０)

On Error GoTo 0

(ｉｆ　ｅｒｒ．ｎｕｍｂｅｒ　＜＞　０　ｔｈｅｎ)

If Err.Number <> 0 Then

(ｍｓｇｂｏｘ　ｅｒｒ．ｄｅｓｃｒｉｐｔｉｏｎ)

MsgBox Err.Description

(ｅｒｒ．ｃｌｅａｒ)

Err.Clear

(ｄｅｂｕｇ．ａｓｓｅｒｔ)

debug.assert

(ｗｏｒｋｓｈｅｅｔｆｕｎｃｔｉｏｎ．ｔｒａｎｓｐｏｓｅ（ａｒｒ）)

WorksheetFunction.Transpose(arr)

(ｄａｔａｂｏｄｙｒａｎｇｅ)

DataBodyRange

(ｌｉｓｔｃｏｌｕｍｎｓ（ｃ）)

ListColumns(c)