必要に迫られて。。。 ＜コード＞ Sub 同一項目縦から横列へ() Dim i1, i2 As Range Dim oj1, oj2 As String 'コードスタート位置 Set i1 = Range("A1") '展開位置 Set i2 = Range("g1") '同一項目縦から横列へ Do Until i1.Value = "" If oj1 = "" Then oj1…