【EXCELについて教えてください】

コマンド操作だけでできます。

できた表３のＣ列に１・２・３と上から連番を入れてＣ列で逆順にソートして、Ｃ列を削除するのです。

最初の回答は、同一シート内での処理を考えて作ってみました。

それが Cells(1, b) = "" ですね。

元のを消してます。

なので 別シートならば それは不要です。

あとは

If sheet1.Cells(1, a) = "" Then Exit For

として

質問のコメントにあるように

sheet2.cells(a-b,1) = sheet1.cells(1,b)

とすればいいですね。

一回の操作であれば、作業列を使用して並べ替えた方が手っ取り早いと思いますが、同じような作業を多く繰り返す場合には、マクロを利用した方が便利ですね。

質問では位置をA1に固定していますが、以下のマクロではコピー先を任意のセルとしています。

なので、コピー元の表をコピーし、コピー先のシートのA1を選択してから、マクロを実行すると、期待する結果となるかともいます。

(0)まず下記のマクロを準備します。

Sub CopyTransposeReverse()
' Keyboard Shortcut: Ctrl+q <--- マクロの自動記録でショートカットを指定して、中身を下記に書き換える
    Selection.PasteSpecial Paste:=xlPasteAll, Transpose:=True

    rStart = Selection.Row
    cStart = Selection.Column
    rNum = Selection.Rows.Count
    cNum = Selection.Columns.Count

    '--- 配列データにコピー
    ar = Selection
    For r = 1 To rNum
        For c = 1 To cNum
    '--- 上下を逆にする。
            Cells(rStart + rNum - r, cStart + c - 1).Value = ar(r, c)
        Next
    Next
End Sub

(1)コピー元の範囲をコピー（Ctl+c）します。

(2)コピー先の左上の位置のセルを選択します。

(3)マクロを実行します。

このとき、taknt さんのように、ショートカットを割り当てておくと(３)の操作時に（今回の例では）Ctr+q を押せば簡単に実行できます。

私もSALINGERさんの方法を真っ先に思いつきましたが、別の方法も考えて見ました。

●元の表がSheet1にあり、新表を別のシートにつくる場合の例です。下記、３つの式のいずれかを、別のシートのA1セルに入力し、得たい表の大きさの範囲にコピーして下さい。

(A)

=OFFSET(Sheet1!$D$1,COLUMN()-1,1-ROW())

※Dは、元の表の右端の列名に書き換えてください。

(B)

=OFFSET(OFFSET(Sheet1!$A$1,0,4-1),COLUMN()-1,1-ROW())

※4は、元の表の列数です。ご質問の文章で言うとｎに該当する数字に書き換えて下さい。

(C)

=OFFSET(OFFSET(Sheet1!$A$1,0,COUNTA(Sheet1!$1:$1)-1),COLUMN()-1,1-ROW())

※書き換え不要です。

※COUNTA(Sheet1!$1:$1)で、列数を数えていますので、元の表の一行目の右側に、表以外の値が入っている場合は、誤った値になります。

●コピーの仕方は、いろいろありますので、やり易い方法でやって下さい。念の為、一つのやり方を書きます。

A1セルを右クリック→[コピー]→コピーしたい範囲を選択→右クリック→[貼り付け]

●なお、上記いずれの場合も、式が入ったままでは、都合が悪い場合は、次のようにして値に変換して下さい。

範囲を選択→右クリック→[コピー]→右クリック→[形式を選択して貼り付け]→[値]をチェック→[ＯＫ]