- ベストアンサー
エクセルについてです
A列1行目から順にa,b,c,d,e…… B列1行目から順に1,2,3,4,5…… C列1行目から順にア,イ,ウ,エ,オ……と入力されているエクセルの表を、D列1行目にa E列1行目に1 C列2行目にア 以下同様にD列3行目にb E列3行目に2 D列4行目にイ……というふうに移していくにはどうしたらよいでしょうか。
- みんなの回答 (7)
- 専門家の回答
質問者が選んだベストアンサー
- ベストアンサー
[No.5補足]へのコメント、 D1: =OFFSET($A$1,(ROW(A1)-1)/2,COLUMN(A1)-1) これを右隣(E1)にドラッグ&ペースト D2: =OFFSET($A$1,(ROW(A1)-1)/2,COLUMN(B1)) E2: 空白のまま 範囲 D1:E2 を下方にズズーッとドラッグ&ペースト
その他の回答 (6)
- tom04
- ベストアンサー率49% (2537/5117)
No.3・4です。 No.6さんが的確な回答をされていますが、 この際ですので、VBAでまたやってみました。 操作方法はNo3で紹介している通りです。 Sub test2() 'この行から Dim i As Long Application.ScreenUpdating = False For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1 Range(Cells(i, 4), Cells(i, 5)).Insert shift:=xlDown Cells(i, 1).Resize(1, 2).Copy Cells(i, 4) Cells(i + 1, 4) = Cells(i, 3) Next i Application.ScreenUpdating = True End Sub 'この行まで こんな感じではどうでしょうか?m(_ _)m
説明が支離滅裂!
補足
すみません。D列1行目にa E列1行目に1 C列2行目にア ではなくD列1行目にa E列1行目に1 D列2行目にア の間違いでした。大変申し訳ありません。
- tom04
- ベストアンサー率49% (2537/5117)
- tom04
- ベストアンサー率49% (2537/5117)
こんばんは! 質問文を素直にそのまま勝手に解釈しています。 VBAになってしまいますが、一例です。 データは1行目からあるとします。 画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面に ↓のコードをコピー&ペーストしてマクロを実行してみてください。 (Alt+F8キー → マクロ → マクロ実行です) Sub test() 'この行から Dim i As Long Application.ScreenUpdating = False For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1 Range(Cells(i, 3), Cells(i, 5)).Insert shift:=xlDown Cells(i, 1).Resize(1, 2).Copy Cells(i, 4) Next i Application.ScreenUpdating = True End Sub 'この行まで ※ 一旦マクロを実行すると元に戻せませんので、別Sheetでマクロを試してみてください。 的外れならごめんなさいね。m(_ _)m
補足
すみません。D列1行目にa E列1行目に1 C列2行目にア ではなくD列1行目にa E列1行目に1 D列2行目にア の間違いでした。大変申し訳ありません。
- m_and_dmp
- ベストアンサー率54% (987/1817)
回答にはなっていませんが、ご容赦ください。 「C列2行目にア、D列4行目にイ」という並びはどのような規則性があるのでしょうか?規則性がないと、一つ一つ入れ替えていくしかありません。
補足
すみません。D列1行目にa E列1行目に1 C列2行目にア ではなくD列1行目にa E列1行目に1 D列2行目にア の間違いでした。大変申し訳ありません。
- K Kazz(@JazzCorp)
- ベストアンサー率31% (549/1751)
アンちゃん、ワスみたいなアホにも、もうチョイ分かるようにケェ~テおくれで内科医、、、 デネェ~と出遅れちまうだからヨォ、、、
補足
すみません。D列1行目にa E列1行目に1 C列2行目にア ではなくD列1行目にa E列1行目に1 D列2行目にア の間違いでした。大変申し訳ありません。
お礼
できました。ありがとうございました。