• ベストアンサー

エクセル1行おきのセルを隣の列の一つ上に移動したい

A列の奇数行に名前、偶数行にコード番号が書かれています。 それをA列に名前、B列にコード番号としたいです。 どうぞよろしくお願いします。

  • ayu12
  • お礼率93% (153/164)

質問者が選んだベストアンサー

  • ベストアンサー
回答No.1

C1セル =INDEX($A:$A,ROW(A1)*2-1) D1セル =INDEX($A:$A,ROW(A1)*2) C1:D1セルを選択し、下へオートフィル 必要部分をコピー&値の貼り付け 添付図参照

ayu12
質問者

お礼

すごい!あんなに苦労していたのに一発でできてしまいました。回答も図入りでわかりやすく、しかも早くて、ありがとうございます。 会社の膨大な資料を これでわかりやすくできます。 ありがとうございました。

関連するQ&A

  • エクセルでセルの行番号を検出し、比較したいんですが…。

       A  B  C  D 1   7   9  10  ● 2   8  12  11  ○ 3   6   8  10  ○ 4  14   9   9  ● 5   7  12  10  ○ 6   12   8  12 このようなA列~D列があるとします。 A列~C列は値が、D列には○や●の記号が入るとします。 ここで、D1には、 「A2以降のA列で、C1より大きい値が最初に出る行番号」 と 「B2以降のB列で、C1より大きい値が最初に出る行番号」 を比較したときに、 A列の方が早ければ○、B列の方が早ければ●と表示させたいのですが、 どのようにすればよいでしょうか? (たとえば、D1は、A列では4行目、B列では2行目にC1より大きい 値がでるので、●といった感じです。) 引き続いて、D2は 「A3以降のA列で、C2より大きい値が最初に出る行番号」 と 「B3以降のB列で、C2より大きい値が最初に出る行番号」 を比較… といった感じで進めて行きたいのです。 非常に困っています。 どなたかご教授ください。 よろしくお願いします。

  • エクセルで、列の空欄に隣の列の数値を入れたい

    エクセル初心者です。関数を教えていただきたく質問をいたします。 A列に数値(電話番号)が入ったセルが並んでしますが、7個にひとつくらいの割合で空欄のセルがあります。 しかし隣のB列には、A列で空欄となっているセルの隣に数値(電話番号)がほぼ入っています。 そこで、A列で抜けている数値を、B列から移し、ほぼA列で事を済ませたく考えています。 どなたかご教授いただけないでしょうか。 A列もB列も空欄の行もあります。 オフィスは古く2003です。 どうぞよろしくお願いいたします。

  • EXCELの行番号、列番号の大きさ!

    EXCELで列番号A、B・・・行番号1、2、3の文字の大きさが、EXCELのファイルによって違います。印刷しようとしても同じ設定なのに若干ずれています。 違うところといえば、その列番号、行番号の文字の大きさです。直すにはどのようにしたらよいのか教えてください!

  • EXCELで3行ごとに入力された数字を隣の列に行をあけずに入力

    EXCELで5行ごとに入力された数字を隣の列に行をあけずに入力するような関数や指示の仕方はありますでしょうか? たとえばA1に20、A5に70、A10に13、A15に19、A20に6と入っていたとする。 それをB1に20、B2に70、B3に13、B4に19、B5に6と並ぶようにしたいのです。 ちなみにA列の5行ごとに入れた数字はどんどん増えていく予定です。      A     B 1     20    20 2          70 3           13 4           19 5     70     6 6 7 8 9 10     13 というような感じです。何かいい方法をご存知の方、教えて下さい。

  • Excelである列の値によって条件書式を行に反映させるのって?

    EXCEL2000を使っています. 「A列が偶数のとき,その行を任意色bに,A列が奇数のとき,その行を任意色cに」と行を目で追いやすいようにストライプにしたいのですが,これって何らかの関数でできますか? 条件つき書式では1つのセルに対してしかできないようなので. 知っている方いましたら教えてください.ネットで探したのですがわかりませんでした.

  • エクセルの行と列の入れ替え

     こんばんは。  エクセルの行と列を入れ替えたいのですが、どうすればいいですか?  a1~a**にあるデータ(縦長ですね。)を一番上の行に移したいのです。(横長にしたい)。  同様にb1~b**のものもa2~??2というように行列を入れ替えるにはどうしたらいいでしょうか?  たぶん、簡単な操作でできると思うのですが、見つからなくて。。。 ちなみにロータス123では「行列の変換」ってなまえで同様の操作があったような気がします。  

  • 13行目のセルの値が0のとき、その列を非表示にする

    Windows7 Excel2007でマクロ作成中の初心者です。 13行目のセルの値が、0のときは、その列を非表示にするというマクロを作ろうとしましたが なかなか難しくておてあげです。探したら次のようなコードがでてきました。 ボタンを押すとK列の値を参照して「A」と表示されている行を隠し、「表示する」ボタンを押すと、 解除するという処理。 Option Explicit Private Sub Cmd隠す_Click()  Dim 行番号 As Long  '行を隠す  For 行番号 = 4 To 13   If Cells(行番号, 11).Value = "A" Then    Cells(行番号, 1).EntireRow.Hidden = True   End If  Next 行番号 End Sub Private Sub Cmd表示する_Click()  '表全体を再表示する  Cells.Select  Selection.EntireRow.Hidden = False  Selection.EntireColumn.Hidden = False  Cells(1, 1).Select End Sub このコードを利用して、13行目のセルの値が、0のときは、その列を非表示にするというコードにしたいのです。 よろしくおねがいします。

  • 行と列情報を1つのセルにまとめたいです

    こんにちは。 現在、「マクロの記憶」で処理していますが、フリーズが多いため質問させてください。 -------------------------------------------------------------- 添付画像7行目までのように、データが入力されています。 同じシート内で、データを処理し添付画像11行目以降のように ・0が書かれたセルを削除したいです。 ・1と書かれたセルを、同列1行目に書かれた数字(日にち)に置き換えて、B列の年月とまとめて1セルに収めたいです。→年月日を作成したいです。 ・左詰めにまとめたいです。 A列:ID番号 B列:年月 C列-AG列:日にち(C1からAG1までは1~31が連続で入力されています。) ・A列のIDがB列の年月ごと1行でまとまっています。 ・IDによっては、年月が同じなのにもかかわらず複数行に分かれることがあります。添付画像16,17行目のようなことが起こります。 ・IDごとに、複数行存在する場合があります ・IDは昇順です。年月の順番はバラバラです。 例えば、2行目のIDが1000の方は、B2が201908、Q2とR2が1なので 2019年08月15日(20190815)、2019年8月16日(20190816)としたいです。 多い方だと、1行に15個の年月日が表示されています。 -------------------------------------------------------------- 分かりにくい部分がありましたらご教示いただけますと幸いです。 お忙しいところ恐縮ですが、何卒宜しくお願いいたします。

  • 検索の実行で、ヒットした行のA列の番号を、セルB3に自動入力するマクロ

    検索の実行で、ヒットした行のA列の番号を、セルB3に自動入力するマクロを教えてください。 エクセルの6行目から約19000行目まで、A列には1からの番号、B列に薬名、C列に剤形、D列にコードが入力されている薬台帳があるのですが、この台帳から薬名を検索して、最初にヒットしたA列の番号をセルB3に表示したいのです。 どなたかよろしくお願いします。

  • Excelのセル移動 最終列から行のトップへ移動するには

    例えばA1からE5の表で、セルを列方向(A1⇒B1⇒・・・E1)に移動させ、最終列までくれば次ぎの行のトップ(E1でEnterを押せばA2に移動させたい)にセルを移動したいのですが、今はTabで列を移動し、最終列でEnterで行なっています。全てEnterでできると聞いたのですが、どなたかご存知の方教えてください。よろしくお願いします。

専門家に質問してみよう