エクセル 選択部分を一括移動するには

質問

エクセルA列に入れたデータを1行づつ開けて選択し、B列にまとめて移動したい場合、どのようにしたらいいのでしょうか？

回答No.6

keithin · ベストアンサー

んじゃまぁ、もひとつついでに。

手順：
Ｂ１に
=A2
と記入
Ｂ１：Ｂ２を選択して下向けにオートフィルドラッグ
必ず一回Ｂ列をコピー、その場で形式を選んで値のみ貼り付ける

Ｂ列にオートフィルタを取り付け
空白で絞り込み
Ａ列を選んでＤｅｌｅｔｅ
若しくは
右クリックして行の削除を行う

同じ手順で応用すれば、２行おき３行飛ばしとかでも同様に行えます。

回答No.7

bunjii

>どのようにしたらいいのでしょうか？
添付画像のような結果を得るには次のように実行すると良いでしょう。

１．C1セルに算術式の =A1 を入力する。
２．D1セルに算術式の =A2 を入力する。
３．C1セルからD2セルまで4つのセルを選択する。
４．D2セルの右下を下方にドラッグしてデータの有る行を全てコピーする。
５．C列とD列全体を線選択しコピーでクリップボードに保存する。
６．そのまま値のみ貼り付ける。
７．添付画像と同じになる。

回答No.5

noname#204879

B1: =IF(MOD(ROW(),2),A1,"")
C1: =IF(MOD(ROW(),2),A2,"")
範囲 B1:C1 を下方にズズーッとドラッグ＆ペースト
列Ｂ、Ｃを[コピー]後、同じ場所に[値の貼り付け]を実行
列Ａを削除

回答No.4

tom04

こんにちは！
VBAになってしまいますが、一例です。

データはA1セルからあるとします。

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

Sub Sample1() 'この行から
Dim i As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 2
With Cells(i, 1)
If .Offset(1) <> "" Then
.Offset(1).Cut .Offset(, 1)
End If
End With
Next i
End Sub 'この行まで

※　関数でないので、データ変更があるたびにマクロを実行する必要があります。m(_ _)m

回答No.3

KURUMITO

A１セルから下方にお示しのデータが有るとしてB１セルには次の式を入力してC１セルまで横にドラッグコピーしたのちに下方にもドラッグコピーします。

=IF($A1="","",IF(MOD(ROW(A1),2)=1,IF(COLUMN(A1)=1,$A1,$A2),""))

範囲が選択状態にあるそのままで右クリックで「コピー」します。
A１セルを選択してから「形式を選択して貼り付け」で「値」にチェックをして貼り付けます。

回答No.2

keithin

手順：
Ａ列に空列を挿入する
Ａ１に
=MOD(ROW(),2)
と記入し、下端までコピー貼り付ける
オートフィルタを設置し、ゼロ或いは１で絞り込む
以後は回答した通りに操作する。

＞数字の部分ですが、実は主に文章が多い

具体的に何がどうなっているのですか？
元のご質問は数字だったのに、どうして突然文章ということになるのですか。
上述手順でもまだ足りないのかもしれませんし、逆にもっと簡単な方法で出来るのかもしれません。「右に持っていきたい」だけは判りますが、あなたの具体的なエクセルの内容に応じて実際にどうしたらいいのか、手順とかやり方、出来ることが変わるということは判りましたね。

「数字だ」と言ってたのがホントじゃなかったワケで、「ウソ」でご相談を書くとこういう二度手間三度手間になります。今回は一旦ここまでにしますので、次からは「ホントの実際はどうなっているのか」キチンと事実を添えて、ご相談を書くようになさってください。

回答No.1

keithin

手順：
Ａ列にオートフィルタを取り付ける
たとえば９９９９より小さいとかで数字だけに絞り込む
選択して右下の■を右にオートフィルドラッグ

（必要に応じて絞り出したＡ列の数字をＤｅｌｅｔｅ）

オートフィルタを解除
Ｂ列をまとめて一つ上のセルにドラッグ移動して完成。

まず実際にアナタのエクセルを開き、手を動かして試してみてください。

補足

早速のご回答ありがとうございます。
数字の部分ですが、実は主に文章が多いのですが、その場合はどのようにすればよろしいでしょうか？
宜しくお願い致します。