【お知らせ】カテゴリの見直しについて

お世話になります。

ぎっちり作ってしまったエクセルの表に対して、
2行に1行、空白行を挿入したいと思います。

この場合の作業について、考えてみたものの、
なかなかうまくできません。

お手数ですが、お知恵を拝借させていただければ、
幸いです。よろしくお願い致します

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

A 回答 (4件)

たとえば、100行分のデータがあるとします。



1.まず、A列の前に一列挿入します。
2.A1セルに1、A2セルに3と入力します。
3.A1セルとA2セルを範囲指定し、右下をドラッグして
  下にフィルしていきます。
4.1・3・5・7・9・11・・・・199とデータの行数分
  フィルします。
5.データの終了行の次の行のセル(この場合199の下)に2、
  その下のセルに4を入力します。
6.3番と5番同様の操作で、2・4・6・8・・200まで
  作ります。
7.[ctrl]+[home]を押して、A1セルに移動します
8.shiftを押しながら、[ctrl]と[End]を同時に押します
  すべてのデータが選択されます。
9.メニューバーからデータ(D)-並び替え(S)を選びます。
10.データ範囲の先頭行を「データ(W)」にし、
  最優先されるキーを「A列」に指定して、
  [ok]を押します。
    • good
    • 5
この回答へのお礼

ありがとうございます。うまいですねぇ。
感動しました。

ただ、今回残念だったのは、
2行に1行の空白間隔だったので、
1
2
4
5
7
8

とした後に、
空白行
3
6
9・・・
と入れていったんですけど、
エクセルうぃフィルしたら、
9.6
11.05714286
12.51428571・・・
と反応してしまいました。

お礼日時:2005/09/22 21:48

2行毎に空行を挿入する方法は以下の方法で如何でしょうか。



1.空き列に=round(row()/2,0)を表の有効行までコピーし、次の行から1~関数最終値までを連続フィルする。
2.空き列を最優先キーで並び替え
3.空き列を削除
    • good
    • 3
この回答へのお礼

あ、なるほど、ラウンドでまとめてしまえば、
コンピュータが細かい計算まで入らないで、
うまくやれるというわけですね。

先に教えていただいたアドバイスに対し、
実際にこのステップで思考が止まっていたので
とても勉強になりました。

ありがとうございます。

今後とも、よろしくお願い致します。

お礼日時:2005/09/22 21:55

こんなマクロでいかがですか?



With ActiveSheet.UsedRange
Set oRow = .Rows(2)
For i = 4 To .Rows.Count Step 2
Set oRow = Union(oRow, .Rows(i))
Next
End With
oRow.Insert -4121
End Sub
    • good
    • 0
この回答へのお礼

ありがとうございます。

やっぱり、マクロができれば色々なことができて、
便利なんだろうなーと思います。

なんどかトライしているんですけど、
独学や断片的知識で、なかなかうまくいかないんです・・・

教えていただいたマクロ式は大切に記録しておいて、
来たるべき日に備えたいと思います。

今後とも、よろしくお願い致します!

お礼日時:2005/09/22 21:53

こんばんは



↓使用前

   A
1  あ
2  い
3  う
4  え
5  お

こんな表があるとします。

最終行まで空いている列にオートフィルで連番を入れます。

   A   B
1  あ   1
2  い   2
3  う   3
4  え   4
5  お   5

連番を入れたらその連番の範囲を選択、直下にコピーペします。

   A   B
1  あ   1
2  い   2
3  う   3
4  え   4
5  お   5
6      1
7      2
8      3
9      4
10      5

↑こんな風に

データ、並び替えで、最優先されるキーをB列(この場合の例)にして
並べ替えます

   A   B
1  あ   1
2      1
3  い   2
4      2
5  う   3
6      3
7  え   4
8      4
9  お   5
10      5

↑こんな風になります。

最後にいらなくなったB列を削除すればおしまいです^^
    • good
    • 5
この回答へのお礼

ありがとうございます。
とても丁寧に教えていただいて
分かりやすかったです。

しかし、うまいですねぇ。
頭の使い方を教えていただいたような気がします。

今回の場合、2行に1行間隔だったので、

1
2
3
4・・・

と、ブランクを2回入れたら、
見事にうまくいきました、

今後とも、よろしくお願い致します!

お礼日時:2005/09/22 21:51

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

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

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

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

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

Qエクセルで等間隔のセルの抽出

例えば、A1~A100にデータが入力されている状態で、A1,A11,A21というように等間隔のデータだけを列Bに空白のセルを作らず連続して抽出したいのですが、どうしたらよいでしょうか。
即ち、A1 → B1,A11 → B2、A21 → B3、・・・・

エクセル不慣れなもので、よろしくお願い致します。

Aベストアンサー

一例です。
■数式で抽出
 B1に=INDEX(A:A,(ROW(A1)-1)*10+1)を入力、下方向にコピー

■数式以外で抽出
 B1に#A1、B2に#A11を入力、A1:A2を選択して下方向にコピー、編集→置換で「#」を「=」に一括置換

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

400行ほどデータの入ったエクセルシートがあります。
行番号 A列
 1  山田
 2  鈴木
 :   :
 400 田中
このシートで、一行おきに2行の空白行を追加したいのですが、
 1  山田
 2
 3
 4  鈴木
 5  
 6
 :  :

マウスで2行選択して右クリックメニューで挿入..を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で、セル間隔をあけて貼り付けしたい。

2つのEXCELファイルがあります。
ファイルAのデータが以下のようにありまして、

   A  B  C  D  E
---------------------------------
1| 5  10  3  4  6

この横にならんだ数値をコピーして、ファイルBに

   A  B  C  D  E
---------------------------------
1 | 5
2 | ×
3 | 10
4 | ×
5 | 3
6 | ×
7 | 4
8 | ×
9 | 6

こんな風に縦に、しかもセル間隔をひとつずつ空けてペーストしたいのです。

ファイルAの方の数値はSUBTOTAL関数を使用して出した結果の数値が入ったセルです。
貼り付けしたいセルだけをCtrlキーを押しながら選択して張り付けると 縦のセルの数×ファイルAの数値セルの数 で貼り付けされてしまいます。
「形式を選択して貼り付け」などもやってみましたが、うまくいきません。

なにかよい方法があったら教えていただきたいです。
よろしくお願いします。

2つのEXCELファイルがあります。
ファイルAのデータが以下のようにありまして、

   A  B  C  D  E
---------------------------------
1| 5  10  3  4  6

この横にならんだ数値をコピーして、ファイルBに

   A  B  C  D  E
---------------------------------
1 | 5
2 | ×
3 | 10
4 | ×
5 | 3
6 | ×
7 | 4
8 | ×
9 | 6

こんな風に縦に、しかもセル間隔をひとつずつ空けてペーストしたいのです。

ファイルAの方の数値はSUBTOTAL関...続きを読む

Aベストアンサー

A1=IF(MOD(ROW(),2)=1,INDIRECT(ADDRESS(1,ROW()/2+1,,,"[ファイル名.XLS]シート名")),"")
を下方にコピーでは駄目でしょうか?上記で
=[ファイル名.XLS]シート名!A1
と同じ表示になり偶数行は非表示になります。開始位置がずれる場合は
ADDRESS関数の行数・列数の設定を変更してください。
ADDRESS(行数,列数,参照型,参照形式,シート名)です。
行数は直接1をその行の数値に、列数はROW()/2-1の-1の数値を変更で対応できます。
展開後に確定する場合は式のある列をコピーして、形式を選択して貼り付けで値にしてください。

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エクセルで、2行おきに1行追加する方法

エクセルで、2行おきに1行追加する方法

行が2000行位あるデータについて、
1行毎では時間がかかるので、
他の方法(マクロでも作業列等)を教えて下さい。



行1 A
行2 B
行3 C
行4 D
行5 E
行6 F
行7 G
行8 H
   
上記2000行のデータを下記のように行追加をしたいのです。

行1 A
行2 B
行追加
行3 C
行4 D
行追加
行5 E
行6 F
行追加
行7 G
行8 H

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

Aベストアンサー

たとえば2行おきの場合。

添付図:
隣列に,B1に数字の1,B2に数字の2を置いてB1:B2をオートフィルドラッグして連番を記入させます。
その下に,2行おきならまず2を記入,そして4を記入してオートフィルドラッグして2,4,6,8の数字を作ります。
AB列をB列昇順で並べ替えると出来上がりです。


n行置きの場合も同様に,B列下に継ぎ足す数字をnおきの数字に作って操作すれば出来ますね。
また,下に継ぎ足す数字の開始番号を調整すれば,どこから空を挿入するか微調整するのも容易です。

QエクセルのIF関数で、文字が入力されていたならば~

エクセルのIF関数で文字が入力されていたならば~、という論理式を組み立てたいと思っています。

=IF(A1="『どんな文字でも』","",+B1-C1)

A1セルに『どんな文字でも』入っていたならば、空白に。
文字が入っていなければB1セルからC1セルを引く、という状態です。

この『どんな文字でも』の部分に何を入れればいいのか教えてください。

またIF関数以外でも同様のことができれば構いません。

宜しくお願いします。

Aベストアンサー

=IF(ISTEXT(A1),"",B1-C1)

でどうでしょうか?

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

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

Aベストアンサー

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

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
こんなことか?。質問の書き方をむしろ勉強してほしい。

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

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

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

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

Excel2000です。

Aベストアンサー

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

Qエクセルで重複しているデータの抽出のしかたを教えてください。

エクセルで重複しているデータを抽出したいのですが・・。なにぶん初心者なもので簡単な方法があればよいのですが・・。
A列に日付 B列に企業名このデータが300件ほどあります。

 Å列      B列
1月 1日    AAAA社
1月 4日   BBBB社
1月 8日   CCCC社
2月 1日   BBBB社
2月20日    DDDD社
3月 2日   AAAA社

と、あるとしてB列の企業名が重複しているものを抽出したいのですが・・・。この場合 AAAA社とBBBB社ですが。
これを簡単に抽出する方法はないでしょうか?
教えてください お願いいたします。

Aベストアンサー

企業名がセルB2からセルB300まで入力されていると仮定します。
セルC2に IF(COUNTIF($B$2:B2,B2)>1,"*","") を入力し、セルC300までコピーして下さい。すると重複したデータの二番目以降に "*" のマークが付きます。
(注) 数式を下のセルまでコピーするため、COUNTIF($B$2 は絶対参照にして下さい。


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

人気Q&Aランキング