ちょっと変わったマニアな作品が集結

複数のとびとびの連続でないセルをコピーして別の領域に貼り付けるとき普通にコピー&ペーストするとペーストした先が連続データになってしまいます。
元のデータがとびとびなら同じ形でペーストしたいんんですが何か方法ありますか?
よろしくお願いします。

A 回答 (2件)

もし、飛び地でないセル(コピーしたくないセル)がNULL(スペースも入っていない空白)であるならば、飛び地を含む行/列を範囲指定してコピーし、貼り付ける際右上のセルを基準に合わせてメニューバーから、編集/形式を選択して貼付け/空白セルを無視するにチェックを入れてOKとすれば、コピー先のデータに影響なく貼付けできます。

    • good
    • 6
この回答へのお礼

ありがとうございました。
なるほど。そういうやり方もありますね。
大変参考になりました。

お礼日時:2004/05/09 00:54

>複数のとびとびの連続でないセルをコピーして


エクセル2000でCTRLキーを使ってやって見ると
「そのコマンドは複数の選択範囲に対して実行できません」となりますが、私のやり方が悪い(誤解?)のでしょうか。
    • good
    • 11
この回答へのお礼

ありがとうございます。
私は複数のセルをCTRLを使って複数選択してからコピーし、別のセルに貼り付けするという操作をしているだけですが、そうすると貼り付け先が連続データになってしまいます。

お礼日時:2004/05/09 00:54

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QEXCELで行方向に飛び飛びで一気にコピーしたい

EXCEL2003を使用しています。

A1セルに計算式を入れています。
A1セルの計算式をA60セル、A120セル、A180セル、A240セル・・・A60000セルと、行方向に60行づつ飛び飛びでコピーしたいです。

一番時間をかけずにコピーする方法を教えてください。

Aベストアンサー

マクロを組むしかないですね。
Sub Macro1()

for i=60 to 60000 step 60
range("a1").cells(i)=range("a1")
next i

end sub

A1セルの式の参照先は変化しませんのであしからず。
参照させるとなるとFor next 間に計算式を入れる必要があります。

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

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

Aベストアンサー

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

コピー貼りつけ方法では旨く行かなかったので、
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 = Selectio...続きを読む

Qエクセルで連続データから、数個飛ばしのデータを抜き取る方法

  A  B
1 a1
2 a2
3 a3
4 a4
5 a5
・・・・・
のような表において、
Bの列にB1=a1、B2=a3、B3=a5
のような2個飛ばしのデータを連続で抜き取る方法はありますでしょうか。
A列が3000行ほどあり手打ち入力がしんどいです。
OFFSET関数を使ってもうまく連続コピーされません。
どなたかご教授願います。

Aベストアンサー

OFFSET関数利用でもよいが、INDEX関数のほうが普通かな。
=INDEX($A$1:$A$100,(ROW()-1)*2+1,1)
100はデータ数が多い場合はデータ行数に変える。
例データ A1:A5
a1
a2
a3
a4
a5
B1に上記。データ数の半数の行数を複写。
結果
a1
a3
a5

Qエクセルで飛び飛びのセルを参照するには

エクセルの使い方で飛び飛びのセルを参照する方法を教えてください。
例えば、sheet1のA1セルにsheet2のA1セルをsheet1のA2セルにsheet2のA15セルをsheet1のA3セルにsheet2のA30セルを参照させるにはどうしたらいいのでしょうか。よろしくお願いします

Aベストアンサー

Sheet1!A1: =OFFSET(Sheet2!A$1,MAX((ROW(A1)-1)*15-1,0),)

QExcelで連続データを行飛ばしで反映させるには?

Excelのオートフィルの様な機能を利用して、連続するデータを二段飛ばしの行に反映させることは可能でしょうか?
たとえば、セル「A1・A2・A3…」に「10・20・30…」とあった場合、セル「B1・B4・B7…」に「10・20・30…」と入力したいのです。
Aセルのデータは固定値ではなく、良く変動します。
また、セル「B2・B3」に当るところにも他のデータが入ります。
何か解決策があれば教えてください。宜しくお願いします。

Aベストアンサー

標準モジュールに

Sub test1()
  Dim crng As Range
  Dim rng As Range
  Set rng = Range("a1", Cells(Rows.Count, "a").End(xlUp))
  For Each crng In rng
   With crng
     Cells(3 * .Row - 2, "b").Value = .Value
     End With
   Next
End Sub
当該シートをアクティブにして、Test1を試してみてください

Qエクセル コピーしたデータを1行おきに貼り付け

エクセル2003を使っております。
コピーしたデータを1行おきに貼り付けたいのですがやり方がわかりません。あと、1つのセルに対して2行ごとに結合したいのですがどのようにすればいいのか。教えてください。よろしくお願いします。

Aベストアンサー

>1行おきに空白があるデータがありまして、それにコピーしたデータ
を貼り付けたいのです。
あいまいにならないように、実例を質問に挙げること。
例えば
コピー先 -は空白行を示す(1)は行番号
A列
(1)12
(2)ー
(3)15
(4)ー
(5)8
(6)ー
(7)5
ーー
(A)上記のーのセルに
(B)1回の操作で
貼り付けたいのだな。
ーー
ここへコピー元はどういうデータですか。
D2:D8に(-は空白セル)
a

b

c

d
なら
D2:D8をコピー
A2を選択
編集ー形式を選択して貼り付け
空白を無視する、にチェック
で貼り付け。
ーーー
結果
12
a
15
b
8
c
5
d
こんなことか?。質問の書き方をむしろ勉強してほしい。

Qエクセルで、条件に一致した行を別のセルに抜き出す方法

エクセルで、指定した条件に一致するセルを含む行をすべて抜き出す方法が知りたいです。

たとえば、

<A列> <B列> <C列>
7/1 りんご 100円
7/2 ぶどう 200円
7/2 すいか 300円
7/3 みかん 100円

このような表があって、100円を含む行をそのままの形で、
別のセル(同じシート内)に抜き出したいのですが。

7/1 りんご 100円
7/3 みかん 100円

抽出するだけならオートフィルターでもできますが、
抽出結果を自動的に、別の場所に、常に表示させておきたいのです。

初歩的な質問だと思いますが、検索しても分からなかったので、よろしくお願いします。

Aベストアンサー

同じ質問が結構よく出てますが、そんなに初歩的でもありません
別シートのA1セルに「100円」と入力し、そのシートの任意のセルに以下の式を貼り付けて下さい。後は、下方向、右方向にコピー。
日付のセル書式は「日付」形式に再設定してください

=IF(COUNTIF(Sheet1!$C:$C,$A$1)>=ROW(A1),INDEX(Sheet1!A:A,LARGE(INDEX((Sheet1!$C$1:$C$500=$A$1)*ROW(Sheet1!$C$1:$C$500),),COUNTIF(Sheet1!$C:$C,$A$1)-ROW(A1)+1)),"")

データ範囲は500行までとしていますが、必要に応じて変更して下さい

Qフィルタしたセルのコピーをフィルタしたセルに貼り付けたい

タイトルの通りなのですが、フィルタしたセルをコピーし、別シートのフィルタしたセルに貼り付けたいのですが、
別シートに貼り付けた時見えなくなっているセルにもコピーデータが張り付いてしまいます。

上手い方法がありますでしょうか?

Aベストアンサー

Ctrlキーを使用すれば、できますよ。
(例)
Aシートのコピーしたい部分を選択し、Ctrl+右クリックショートカットからコピーをクリックします。
Bシートの貼り付けたい部分にカーソルを持っていき、Ctrl+貼付…

これでできませんかね…ご要望と違う内容でしたらすみません。

Qエクセルで打ち込んだ数字を自動で別シートに表示したい

エクセルでセルに打ち込んだ数字を自動で別シートに表示できる方法があれば、教えてください。

例えば、シート1のC1に5を打ち込んだら、シート2のD2にシート1で打ち込んだ5が自動で表示される。

また1列すべてを自動で表示させる場合、一つのセルの時と違いがありましたら教えてください。よろしくお願いします。

Aベストアンサー

こんばんは。
入力したセルの値を合計とかでなくて、
純粋に別のシートに自動的に表示したいのであれば、
以下の方法があります。

1.1つのセルだけの場合
例)シート1のC1に5を打ち込んだら、
  シート2のD2にシート1で打ち込んだ5が自動で表示される

⇒シート2のD2のセルをアクティブにして「=」を入力
 した後、シート1のC1をクリックする。
 そうするとD2のセルに「=Sheet1!C1」と表示され、値が自動的に
 表示されるようになります。

2.1列全てコピーしたい場合。
  コピー&リンク貼り付けを使うと便利です。

例)例)シート1のC1~C5に何かを入力したら、
  シート2のD2~D7にシート1で打ち込んだものが自動で表示される

  シート1にあるコピー元のセルを範囲選択して、
  シート2のD2の上で「右クリック」⇒「形式を選択して貼り付け」
  をクリックします。

  そして出てきた小さな画面の左下にある「リンク貼り付け」という
  ボタンをクリックすると完成です。
  試してみてください。。

  念のためにリンク貼り付けを図解しているURLを載せておきます。
  参考にしてみてくださいね。。
  http://www.geocities.jp/office_inoue/excel/eq21.htm

こんばんは。
入力したセルの値を合計とかでなくて、
純粋に別のシートに自動的に表示したいのであれば、
以下の方法があります。

1.1つのセルだけの場合
例)シート1のC1に5を打ち込んだら、
  シート2のD2にシート1で打ち込んだ5が自動で表示される

⇒シート2のD2のセルをアクティブにして「=」を入力
 した後、シート1のC1をクリックする。
 そうするとD2のセルに「=Sheet1!C1」と表示され、値が自動的に
 表示されるようになります。

2.1列全てコピーしたい場合。
  コ...続きを読む

Qエクセルで複数のセルをコピー出来ます?

エクセルのセルでA1,A3,A7とか離れたセルをコピー
する事は出来ますか?関数とかVBAとかじゃなく単純に
コピーしたいのですが・・・

Aベストアンサー

こんなのでは?
1.ツールバーで「クリップボード」を表示しておきます。
2.A1:A7を選択してコピーします。(クリップボード1)
3.A1:A7でコピー対象外のセルをすべて空白にします。
4.A1:A7を選択してコピーします。(クリップボード2)
5.貼り付け先の先頭セルを選択し、形式選択の"空白セルを無視"で
 貼り付けます。
6.A1を選択してクリップボード1を貼り付けます。


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング