- ベストアンサー
エクセル 飛び飛びのセルの値を貼る方法
AA3とAB5とAC10・・・のセルの値をA3とB5とC10・・・というふうに、同じパターンの配置の別のセルにまとめて張りたいのですが、そのような方法はありますか?
- みんなの回答 (5)
- 専門家の回答
質問者が選んだベストアンサー
コピー貼りつけ方法では旨く行かなかったので、 VBAで考えて見ました。 Sheet1にコマンドボタンを1つ貼りつける。 ボタンをダブルクリックすると、 下記のコードの初め(Private・・)と終わり(End Sub)の行が現れるから、下記コードの中間の行をコピーし 貼りつけて、下記のようにする。 Private Sub CommandButton1_Click() Dim cl As Range Dim s As Range Dim rng As Range '----- Set rng = Application.InputBox("起点", , Type:=8) r = rng.Row c = rng.Column '------ Set s = Selection r1 = s.Row c1 = s.Column For Each cl In s r2 = cl.Row c2 = cl.Column Cells(r + r2 - r1, c + c2 - c1) = cl Next End Sub コピー「元」の複数諸セルをCTRLキーを押しながら、クリックする。(同一行内であることが条件は要らないです。) ボタンをクリック。コピー「先」の左上隅のセルを聞いてくるから、(キーボード入力でなく)セルをクリックして、OKボタンをクリック。 起点を基にして、コピー元の相対的なセルの位置関係を保存して、「値」(のみ)をコピーします。
その他の回答 (4)
#2/#3です。簡単にはできなかったのですね。 確かめもせず、回答を出して申し訳ありませんでした。
お礼
わざわざありがとございます。
CTRLを押したまま、コピーしたいセルをクリックして、COPY→貼り付け先の範囲となる中で、左上のセルをクリックして→貼り付け です。
お礼
これだと、COPYできないですね。
- SAKURAMYLOVE
- ベストアンサー率30% (162/533)
どのような状況かわませんが、コピー元が、コピーするセル以外は空白、(コピー先の状況は問わない)と言うことでしたら、以下の方法で可能です。 (1)AA3から最後まで連続してセルを選択。 (2)コピー先のA3のセルを選択し、右クリックで、形式を選択して貼り付けで、左下の空白セルを無視するをチェックをいれて、okとします。
お礼
回答ありがとうございます。 うまくいきました。
- Samurai-Jack
- ベストアンサー率18% (130/697)
AA3からAC10までを範囲選択してからコピーをし、A3にカーソルを移動して、貼り付けを行えばよいのではないでしょうか?貼り付け先に書式があるのでしたら、「形式を選択して貼り付け」で「値のみ」にすればよいと思います。
お礼
回答ありがとうございます。 質問が不十分だったようで、NO2の方の回答を期待してました。
お礼
ばっちりでしたよ。 回答ありがとうございます。