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

ＡＡ３とＡＢ５とＡＣ１０・・・のセルの値をＡ３とＢ５とＣ１０・・・というふうに、同じパターンの配置の別のセルにまとめて張りたいのですが、そのような方法はありますか？

No.4 ベストアンサー 回答者： imogasi 回答日時： 2004/09/30 08:57

コピー貼りつけ方法では旨く行かなかったので、

VBAで考えて見ました。
Sheet１にコマンドボタンを１つ貼りつける。
ボタンをダブルクリックすると、
下記のコードの初め（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ボタンをクリック。
起点を基にして、コピー元の相対的なセルの位置関係を保存して、「値」（のみ）をコピーします。

この回答へのお礼

ばっちりでしたよ。

回答ありがとうございます。

お礼日時：2004/09/30 10:20

No.5 回答者： noname#8027 回答日時： 2004/09/30 09:18

＃２／＃３です。

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

この回答へのお礼

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

お礼日時：2004/09/30 10:21

No.3 回答者： noname#8027 回答日時： 2004/09/30 00:04

ＣＴＲＬを押したまま、コピーしたいセルをクリックして、ＣＯＰＹ→貼り付け先の範囲となる中で、左上のセルをクリックして→貼り付け

です。

この回答へのお礼

これだと、ＣＯＰＹできないですね。

お礼日時：2004/09/30 10:06

No.2 回答者： SAKURAMYLOVE 回答日時： 2004/09/29 23:24

どのような状況かわませんが、コピー元が、コピーするセル以外は空白、（コピー先の状況は問わない）と言うことでしたら、以下の方法で可能です。

(1)ＡＡ３から最後まで連続してセルを選択。
(2)コピー先のＡ３のセルを選択し、右クリックで、形式を選択して貼り付けで、左下の空白セルを無視するをチェックをいれて、ｏｋとします。

この回答へのお礼

回答ありがとうございます。

うまくいきました。

お礼日時：2004/09/30 10:05

No.1 回答者： Samurai-Jack 回答日時： 2004/09/29 23:23

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

この回答へのお礼

回答ありがとうございます。

質問が不十分だったようで、ＮＯ２の方の回答を期待してました。

お礼日時：2004/09/30 10:04