エクセルで列数を少なくするとセルの値もずれる

図のように列数を少なくするとセルの値もずれるようにするにはどうすればいいですか？office　xp

No.1 回答者： CoalTar 回答日時： 2011/04/18 15:43

勘で答えるのは忍びないのです。

下記で違うようなら、詳しく説明してください。
A1セル 1
B1セル =A1+1
右へオートフィル
下へオートフィル

A2セル
=MAX(1:1)+1
下へオートフィル

この回答へのお礼

ありがとうございます。なるほど参考になります。

ただ実際は連番ではない為、F列までになった場合、E1の値がA2にずれてくれて、必然的にD2とE2もA3とB3にずれてくれればうれしいのです。

お礼日時：2011/04/18 15:56

No.2 ベストアンサー 回答者： mt2008 回答日時： 2011/04/18 17:05

マクロを使わなくては無理でしょう。

「こういう事かな？」と言う簡単なサンプルを作って見ました。
エラー処理を行って居ませんのであくまで参考用です。

Sub Sample()
　　Dim Nowdata As Variant
　　Dim sStr As String
　　Dim nCol, nCount, i, j
　　
　　With ActiveSheet
　　　　'使用している範囲を配列に入れる
　　　　Nowdata = .UsedRange
　　　　sStr = InputBox("何列にする?")
　　　　If sStr = "" Then End
　　　　nCol = CInt(sStr)
　　　　
　　　　nCount = 0
　　　　'使用している範囲を消去
　　　　.UsedRange.Clear
　　　　'ループを回して配列に取り込んだデータをセルへ
　　　　For i = 1 To UBound(Nowdata, 1)
　　　　　　For j = 1 To UBound(Nowdata, 2)
　　　　　　　　.Cells(Int(nCount / nCol) + 1, (nCount Mod nCol) + 1) = Nowdata(i, j)
　　　　　　　　nCount = nCount + 1
　　　　　　Next j
　　　　Next i
　　End With
End Sub

この回答へのお礼

こんな大変なことだとは思ってませんでした。
考えていたものとは違いますが、これはこれで十分他のことに
応用できそうです。

ありがとうございます。

お礼日時：2011/04/18 18:15