• ベストアンサー

エクセル 飛び飛びのセルの値を貼る方法

AA3とAB5とAC10・・・のセルの値をA3とB5とC10・・・というふうに、同じパターンの配置の別のセルにまとめて張りたいのですが、そのような方法はありますか?

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

  • ベストアンサー
  • imogasi
  • ベストアンサー率27% (4737/17069)
回答No.4

コピー貼りつけ方法では旨く行かなかったので、 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ボタンをクリック。 起点を基にして、コピー元の相対的なセルの位置関係を保存して、「値」(のみ)をコピーします。

VitaminBB
質問者

お礼

ばっちりでしたよ。 回答ありがとうございます。

その他の回答 (4)

noname#8027
noname#8027
回答No.5

#2/#3です。簡単にはできなかったのですね。 確かめもせず、回答を出して申し訳ありませんでした。

VitaminBB
質問者

お礼

わざわざありがとございます。

noname#8027
noname#8027
回答No.3

CTRLを押したまま、コピーしたいセルをクリックして、COPY→貼り付け先の範囲となる中で、左上のセルをクリックして→貼り付け です。

VitaminBB
質問者

お礼

これだと、COPYできないですね。

回答No.2

どのような状況かわませんが、コピー元が、コピーするセル以外は空白、(コピー先の状況は問わない)と言うことでしたら、以下の方法で可能です。 (1)AA3から最後まで連続してセルを選択。 (2)コピー先のA3のセルを選択し、右クリックで、形式を選択して貼り付けで、左下の空白セルを無視するをチェックをいれて、okとします。

VitaminBB
質問者

お礼

回答ありがとうございます。 うまくいきました。

回答No.1

AA3からAC10までを範囲選択してからコピーをし、A3にカーソルを移動して、貼り付けを行えばよいのではないでしょうか?貼り付け先に書式があるのでしたら、「形式を選択して貼り付け」で「値のみ」にすればよいと思います。

VitaminBB
質問者

お礼

回答ありがとうございます。 質問が不十分だったようで、NO2の方の回答を期待してました。

関連するQ&A

専門家に質問してみよう