急いでいます！

Excelで行ごとコピー、同じ行を3行にしたい

解決済

質問者：josephatchersea
質問日時：2016/06/10 14:07
回答数：2件

Excelのデータで1行をコピーして、全く同じ行をその下2行挿入(追加)して、
そのまた下の行を1行コピーして、全く同じ行をその下に2行挿入。

というのがあり、全部で500行分あります。

一回一回コピーして、右クリック、コピーした行を挿入。
するのが面倒で。。。何かいい方法はないでしょうか。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

このQ&Aに関連する最新のQ&A

「Excel コピー」に関するQ&A： Excelのコピー＆ペーストについて質問です。

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： mike_g
回答日時：2016/06/11 17:37

「急いでます」か？知らなかったモンでぇ～

添付図に示すようなこと？
C1: =OFFSET(A$1,(ROW(A1)-1)/3,)

- 5
- 件

通報する

この回答へのお礼

ご連絡遅くなりました！
正に求めていた形でした。既出の方の方法だとデータ順が並び変わってしまうのではと思っていました。
知らない関数だったので、非常に助かりました！
有難うございます！

通報する

お礼日時：2016/06/21 12:34

参考程度に

No.1

回答者： CoalTar
回答日時：2016/06/10 14:26

501行目から下は何も入力されていないとして

1. A列挿入
2. A列に連番
3. 1:500行をコピー
4. 501行目に貼り付け
5.1001行目に貼り付け
6.A列で昇順で並べ替え
7.A列削除

- 1
- 件

通報する

このQ&Aに関連する人気のQ&A

「Excel コピー」に関するQ&A：インターネット上にある地図をコピーしてEXCELに貼り付けたいのですが

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

質問する（無料）

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

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

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

QExcelでコピーした行の挿入を繰り返すには

Excelで行をコピーして、別の行で右クリックして
コピーしたセルの挿入
を行うと、コピーした行を挿入できます。

しかし、一度　コピーした行を挿入すると、
もう右クリックしても
「コピーしたセルの挿入」はありません。

コピーした行の挿入を繰り返すには、どうすればよいですか。

Excel2000です。

Aベストアンサー

もう一度コピーするしかないです。

他の回答も見る

うまく説明できませんが、筆まめの住所録データをＣＳＶ形式にてエクセルに落とし込みました。

その状態では、宛名～備考までの項目が約20、Ａ２～Ｓ２に１行に
展開されています。

住所録を社内で回覧できる状態にしたいのですが、今のままでは
項目が多すぎるため、１件について３行程度に項目を折りたたんで
展開したいです。

　宛名｜敬称｜担当者｜郵便番号｜住所｜番地｜ビル名｜備考
　
　↓
　
　宛名　｜　敬称　｜担当者
　郵便番号　｜　住所　｜　番地　｜　ビル名
　備考

　という風に。

別シートに「=sheet1!A2」「=sheet1!B2」というように配置し、
以下ドラックすると、データが2件飛ばしになってしまいます。

簡単に展開しなおせる方法を教えて下さい！！

ずっと調べているのですが、一向に分からずに煮詰まってしまいました。

Aベストアンサー

住所録データ1件がA列～S列まであるんですよね。
質問には何も書いていませんが、本当は何件もデータがあって、別シートに1件につき3行で表示したい。と、言うことであっていますか？
例では8項目ですが、本来は19項目あると……。
質問を見ると住所録データが1件しかないような記述でしたので、思い違いでしたらごめんなさい。

とりあえず、7項目、7項目、5項目と別けると仮定します。
別シートのA2に以下を入れ、G4までコピーし、F4とG4の式を削除します。
=INDEX(Sheet1!$A:$S,INT((ROW()-2)/3)+2,COLUMN()+MOD(ROW()-2,3)*7)

次にA2からG4までを選択して下にずらずらっとコピーします。
表示する項目を変えるときは COLUMN()+MOD(ROW()-2,3)*7　が項目になりますので、1～19までの数字を入れてください。

他の回答も見る

Qエクセルで数行おきにデータを抽出

エクセルシートで、あるデータ膨大にを出しますよね。
それで、たとえば、三行ごと、四行ごととかであるデータを右の行もしくは左行に抜き出す操作をするにはどうしたらいいですか？
今は、フィルタと可視フィルタを駆使してやっているのですが、一発でバンと出すような方法があると思って・・・数式とかでありそうだなって思って。
教えてください。、

Aベストアンサー

=OFFSET(抽出したい列の一番初めのセルの絶対参照,(ROW(A1)-1)*行間隔,0)
又は
=INDEX(抽出したいセルの範囲の絶対参照,(ROW(A1)-1)*行間隔+1,1)

他の回答も見る

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

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

Aベストアンサー

>１行おきに空白があるデータがありまして、それにコピーしたデータ
を貼り付けたいのです。
あいまいにならないように、実例を質問に挙げること。
例えば
コピー先　－は空白行を示す（１）は行番号
A列
（１）１２
（２）ー
（３）１５
（４）ー
（５）８
（６）ー
（７）５
ーー
（A)上記のーのセルに
（B)１回の操作で
貼り付けたいのだな。
ーー
ここへコピー元はどういうデータですか。
D2:D8に（－は空白セル）
a
ー
b
ー
c
ー
d
なら
D2:D8をコピー
A2を選択
編集ー形式を選択して貼り付け
空白を無視する、にチェック
で貼り付け。
ーーー
結果
12
a
15
b
8
c
5
d
こんなことか？。質問の書き方をむしろ勉強してほしい。

他の回答も見る

Qエクセルで三行ごとのデータを１行ごとに表示させたい

下のように三行ごとにあるセルを参照し、他のセルに一行ごとに表示する方法（関数、もしくはマクロなど）

　　Ａ　Ｂ　Ｃ　Ｄ
１　あ　　　　　あ
２　　　　　　　い
３　　　　　　　
４　い
５
６
７　う
８

あるいはあるセルに入力されている数値を数式内の行、または列として指定する方法を探しています。

（たとえばA1に４、A2に３と入力されていたとき、B2でその数値を取得しC3の内容を表示する、といった感じです）

簡単そうなきがするのですが私の検索が悪いのか、見つけることが出来ませんでした。ご存知の方お願いします

Aベストアンサー

　　Ａ　Ｂ　Ｃ　Ｄ
１　あ　１　　　=INDIRECT("A" & B1,1)
２　　　４　　　=INDIRECT("A" & B2,1)
３　　　７　　　=INDIRECT("A" & B3,1)
４　い
５
６
７　う
８
こういう事かな？

他の回答も見る

QExcelで一行おきに2行の空白行を挿入したい

４００行ほどデータの入ったエクセルシートがあります。
行番号　A列
　1　　山田
　2　　鈴木
　：　　：
　400　田中
このシートで、一行おきに２行の空白行を追加したいのですが、
　１　　山田
　２
　３
　４　　鈴木
　５　　
　６
　：　　：

マウスで２行選択して右クリックメニューで挿入..を400行分やるのが大変なので
一気にやる方法を教えてください。

Aベストアンサー

こんにちは、マクロですが
Sub Test()
　　Dim i As Long
　　For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
　　　　Rows(i).Resize(2).Insert
　　Next
End Sub

他の回答も見る

QExcelの連続データから数行おきのコピー

ExcelのSheet1に連続したデータが入っています。

Sheet2はSheet1の内容を参考にしてレイアウトを変えていますが、

Sheet1で入力してある項目を参照して表示したいです。

コピーには規則性があるので、Sheet2を2項目だけ入力した後、

オートフィルで、一発で全部コピーしたいです。

VBAではなく、Sheet2に書くべき関数のコードを教えてください。

よろしくお願い致します。

-------------------------------

連続したデータがSheet1に大量に入っています。

例
　 A　　　B 　　　C
1 北海道　札幌市　メロン
2 青森県八戸市りんご
3 岩手県　盛岡市　冷麺

以下、多数あり。

Sheet2に、

　 A　　　B 　　　C
1 北海道　札幌市　メロン
2
3
4
5 青森県八戸市りんご
6
7
8
9 ※ここから下をオートフィルのコピーで表示したい

Aベストアンサー

シート２のA２セルには（A１,A３セルでもよい）次の式を入力してC２セルまでドラッグコピーしたのちに下方にもドラッグコピーします。

=IF(MOD(ROW(A1),4)<>1,"",IF(INDEX(Sheet1!$A:$C,ROUNDUP(ROW(A1)/4,0),COLUMN(A1))="","",INDEX(Sheet1!$A:$C,ROUNDUP(ROW(A1)/4,0),COLUMN(A1))))

上式では１つのデータに４行を使っているので４が入力されています。５行必要なら５に改めて使用すればよいでしょう。
なお、シート１でデータが２行目から下方になる場合には次のような式になります。

=IF(MOD(ROW(A1),4)<>1,"",IF(INDEX(Sheet1!$A:$C,ROUNDUP(ROW(A1)/4,0)+1,COLUMN(A1))="","",INDEX(Sheet1!$A:$C,ROUNDUP(ROW(A1)/4,0)+1,COLUMN(A1))))

＋１が新たに追加されますね。

他の回答も見る

Qエクセルで、別シートの2行おきのデータ参照するには？

下記のようなデータがシート１からシート２に取り出す場合の良い方法ありませんか？
データが少しなら、手入力で数式を入力が可能なのですが・・。
○行おきの合計などは、過去の質問であったのですがよろしくお願いします。

　シート１　　　　シート２
　　　Ａ　　　　　　Ａ
　１　あ　　　　１　あ
　２　ア　　　　２　い
　３　ａ　　　　３　う
　４　い　　　　４　・
　５　イ　　　　５　・
　６　ｉ
　７　う
　８　ウ
　９　ｕ

Aベストアンサー

=OFFSET(Sheet1!$A$1,(ROW(A1)-1)*3,0)

他の回答も見る

Qエクセルで長い行を5行ごとに1列にするには？

エクセルで行列の入れ替えの応用（になるのでしょうか？）をお尋ねします。
A列に例えば100行のデータが入っているのを、5行ずつ横並べにして、20行にしたい時どうすればよいでしょうか？

A列
-------
データ1
データ2
データ3
データ4
データ5
データ6
データ7
データ8
データ9
データ10
（続く…）
--------
こうなっているのを、

　A列　　B列　　　C列　　D列　　　E列
------------------------------------------
データ1 データ2 データ3 データ4 データ5
データ6 データ7 データ8 データ9 データ10
（続く…）
----------------------------------------
このように、表示したいのです。

お尋ねしているのは、100行ですが、
実は1500行ほどの長い名簿データが元のものです。

宜しくお願い致します。

Aベストアンサー

次の方法は如何でしょうか。
（１)別シートにA1に次の数式を設定し、縦横に必要分コピーして下さい。
=OFFSET(Sheet1!$A$1,COLUMN()-1+(ROW()-1)*5,0)
　　元データシートをsheet1としています。
（２）並び替え範囲コピー→貼り付け先を選択→形式を選択して貼り付け→値を選択→ＯＫ

他の回答も見る

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

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

Aベストアンサー

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

他の回答も見る

ページトップ