ie-excel

エクセル・マクロでie操作

縦軸と横軸を逆転させる

Excelで表を作っていた時に、時々「縦軸と横軸の設定を逆にすればよかった」と感じることがあります。
コピペするにも大変
なので、VBAで簡単にその表を軸を逆転させるための簡単なコードです。
以下の見本は、「Sheet1」から「Sheet2」に表の軸を逆転させてコピーするVBAです。


Sub reverse()
    MaxRow = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
    MaxColumn = Sheets("Sheet1").Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To MaxRow
For j = 1 to MaxColumn
Sheets("Sheet2").Cells(j, i).Value = Sheets("Sheet1").Cells(i, j).Value
Next j
Next i
End Sub

-VBA