#contents *Excel 関連情報 **サンプルコード ***縦軸と横軸を入れ替えるサンプル ' 縦軸と横軸を入れ替えるサンプル Sub XYSwap() Const X_MAX = 5 ' X軸の最大値 Const Y_MAX = 5 ' Y軸の最大値 Const X_BASE = 2 ' X軸のベース Const Y_BASE = 13 ' Y軸のベース Dim nX Dim nY Dim nValue ' 横軸(X軸)のループ For nX = 0 To X_MAX - 1 ' 縦軸(Y軸)のループ For nY = nX To Y_MAX - 1 ' 座標をスワップ nValue = Cells(nY + Y_BASE, nX + X_BASE) Cells(nY + Y_BASE, nX + X_BASE) = Cells(nX + Y_BASE, nY + X_BASE) Cells(nX + Y_BASE, nY + X_BASE) = nValue Next Next End Sub -実行前 ||''1''|''2''|''3''|''4''|''5''| |''1''|1|2|3|4|5| |''2''|6|7|8|9|10| |''3''|11|12|13|14|15| |''4''|16|17|18|19|20| |''5''|21|22|23|24|25| -実行後 ||''1''|''2''|''3''|''4''|''5''| |''1''|1|6|11|16|21| |''2''|2|7|12|17|22| |''3''|3|8|13|18|23| |''4''|4|9|14|19|24| |''5''|5|10|15|20|25| -はてな --http://www.hatena.ne.jp/1087199441 #comment