連続したセルに入っている数値を、ひとつ置きに一括で

質問

エクセルに堪能な方に質問させてください。

A1から右にB１、C１とデータがあります。

これをひとつおきに、A1、C1、E1と言う様に一括で変更したいのですがどなたかご存知の方、よろしくお願いします。

回答No.4

keithin · ベストアンサー

＞これをひとつおきに、A1、C1、E1と言う様に一括で変更したい

Ｂ列を列選択する
コントロールキーを押しながらＣ列を列選択する
（Ｂ：Ｃ列をまとめて列選択する「のではない」ので，間違えないこと）

右クリックして挿入で列を挿入する

それとも，Ａ１，Ｂ１，Ｃ１のそのセルだけを一括で変更したいなら
Ｂ１を選択する
コントロールキーを押しながらＣ１を選択する
（Ｂ１：Ｃ１をまとめてセル選択するのではないので，間違えないこと）

右クリックして挿入で「右方向にシフト」する

＃参考
イチイチ「コントロールキーを押しながら選択」とかやるのもメンドクサイなら

名前の定義で
　名前　Target
　参照範囲　=INDIRECT("B1"),INDIRECT("C1")
と登録する

名前ボックス（数式バーの左端，通常Ａ１などの表示が出ている箱）の中に Target　と記入し，Ｅｎｔｅｒする
所定のセルが適切に選択されるので，右クリックして挿入して右にシフトする

＃別の方法
Ａ１，Ｂ１，Ｃ１に連番の１，２，３を記入する
Ａ２，Ｂ２，Ｃ２にデータを記入する
Ｄ１，Ｅ１，Ｆ１にもう一度連番の１，２，３を記入する
Ｄ２，Ｅ２，Ｆ２は空っぽにしておく
１：２行を，１行目の昇順で横向けに並べ替えると完成

リクツが判れば，勿論連番を例えば２行目，データを１行目に配置して置いて実施しても構わない

回答No.3

tom04

こんにちは！
1列おきに列を挿入すれば良い訳ですよね？

VBAになってしまいますが、一例です。
画面左下の操作したいSheet見出し上で→クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub 列挿入() 'この行から
Dim j As Long
For j = ActiveSheet.UsedRange.Columns.Count To 2 Step -1
Columns(j).Insert
Next j
End Sub 'この行まで

※　一旦マクロを実行すると、元に戻せませんので別Sheetでマクロを試してみてください。m（_ _）m

回答No.2

KURUMITO

意味がよく理解できていませんがＡ１セルから横にＢ1，Ｃ1…とデータが有るときに例えば2行目に1列おきのデータを表示させるとしたらＡ2セルには次の式を入力して右横方向にドラッグコピーします。

=IF(COLUMN(A1)>ROUNDUP(COUNTA($1:$1)/2,0),"",INDEX($1:$1,COLUMN(A1)*2-1))

2行目に1行目に並んでいるデータを1列おきに表示させるのでしたらＡ2セルには次の式を入力して右横方向にドラッグコピーします。

=IF(COLUMN(A1)>COUNTA($1:$1)*2,"",IF(MOD(COLUMN(A1),2)=1,INDEX($1:$1,ROUNDUP(COLUMN(A1)/2,0)),""))

回答No.1

aokii

B列及びC列の左に列を挿入してはいかがでしょう。

補足

そうですねー　それでも可能そうですね。

ですが毎日の大量の作業ですので一括で出来ればなおさら可なのですが。。。

ありがとうございます。