>>494
range("a1").resize(Ubound(配列)ーLbound(配列)) = _
worksheetfunction.transporse(配列)