エクセル　1行飛ばしで番号をつけたい

解決済

質問者：happytamm
質問日時：2011/06/30 11:19
回答数：5件

エクセルのA列に以下のように番号を付けたいのですが
どのような関数を用いればよろしいでしょうか。尚データが膨大で手打ちでは対応できません。
ご回答頂けますと幸いです。宜しくお願いいたします。

　　A　B　C
1　1　
2　
3　2
4　
5　3
6
7　4

通報する

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

質問の本文を隠す

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

「番号エクセル」に関するQ&A：エクセルで管理番号の老番を表示

回答 (5件)

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

No.1ベストアンサー

回答者： riri1609
回答日時：2011/06/30 11:36

1例です。

1:　A1に　1　を入力
2:　A3に　=A1+1　を入力
3:　A3:A4　を選択・コピー
4:　A5:A***（必要な範囲）に貼り付け（A***は偶数行である必要があります。）

これで見た目上は1行飛ばしで番号が入力されているはずです。

5:　A列を選択・コピー・形式を選択して貼り付けで値を貼り付ければ完成です。

- 2
- 件

通報する

No.5

回答者： xls88
回答日時：2011/06/30 16:25

隣の列に連続でデータが無い場合、それに代わる状況を作り出せばよいです。

Ctrl＋G　で「ジャンプ」ダイアログ表示
A1:A1000　と対象セル番地を入力（参照欄に入力される）
Enter　で「OK」（指定セル範囲を選択）
1 と入力（この例ではA1に入力される）
編集モードのまま
Ctrl＋Enter　ですべてのセルに1が入力される
A2を選択しDeleteでデータを消去
A1:A2を選択
選択枠の右下角の■（フィルハンドル）をダブルクリック

- 0
- 件

通報する

No.4

回答者： kagakusuki
回答日時：2011/06/30 13:29

　ROW関数だと最初に番号を表示する行が、奇数行なのか、偶数行なのかによって、数式を変えなければいけませんので、Sheetのレイアウトを変更する際等に不便です。

　ですから、ROW関数ではなく、ROWS関数を使用した方が良いと思います。
　具体的には、A1セルに次の関数を入力してから、A1セルをコピーして、A2以下に貼り付けると良いと思います。

=IF(MOD(ROWS($1:1),2)=1,ROUNDUP(ROWS($1:1)/2,0),"")

　因みに、1行おきではなく、例えば2行おきに番号を振る場合には、上記の関数中の「2」を「3」に変えた、次の様な数式となります。

=IF(MOD(ROWS($1:1),3)=1,ROUNDUP(ROWS($1:1)/3,0),"")

- 2
- 件

通報する

No.3

回答者： MackyNo1
回答日時：2011/06/30 13:24

すでにB列にはデータが入っていて、空白のA列に１つとびのセルに連続番号を入力したいなら、以下のようなオートフィル操作が簡単です。

A1セルに「１」と入力し、A1セルとその下の空白セルを選択して、セルの右下部分をダブルクリックすればデータ数分だけ連続データを自動入力できます。

関数で対応する場合は、A1セルに「=INT(ROW(2:2)/2)」のような数式を入力して、A1:A2セルを選択して、同様に下方向にオートフィルコピーしてください。

- 1
- 件

通報する

No.2

回答者： Cupper-2
回答日時：2011/06/30 11:40

Excelの機能を使った方法

　A1セルに 1
　A3セルに 2
を入力して
　A1セルから A4セルを選択します
　選択範囲を示す枠線の右下の四角い点を下にドラッグする（フィル）
　必要な場所までドラッグすれば完成

関数式を使った方法

　A1セルに
　=IF(MOD(ROW(A2),2)=0,A2/2,"")
　などと入力して必要な行までコピーする
※　関数式の意味を理解できていないと問題は解決しませんので良く吟味してください。

- 0
- 件

通報する

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

「番号エクセル」に関するQ&A：エクセルで、郵便番号を入力すれば、自動的に右のセルに住所が入力される方法

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

質問する（無料）

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

専門家回答数ランキング

専門家

※過去一週間分の回答数ランキングです。

質問する（無料）

他の専門家の回答をチェック

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

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

QExcelで複数行ずつ連番をふる方法教えてください

初心者ですが、1,2,3……と縦に連番はオートコレクトでできるのですが
3行ずつ同じ数字で連番を振りたいのですがオートコレクトをしますと
少数点の付いたりして上手くいきません。
1□□2□□3□□……　であればできるのですが。（□は空白行です。）
111222333……にしますと333の次から3.5　3.8　4.1　のように0.3ずつ
増加した数字になってしまいます。希望は111222333444555666……
にしたいのです。宜しくお願い致します。

Aベストアンサー

さっき回答した者ですが、補足です。

数字の前に「No.」などがついている場合は、
残念ながら下で私が回答した方法は使えません。

しかし、次の方法で、
「No.」等の文字を表示させることはできます。

「セルの書式設定」で「ユーザー設定」を選択し、
「種類」の欄に「"No."#」と入力すれば、
「No.1」と表示することができます。

よろしければお試しください。

他の回答も見る

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

Excelのオートフィルの様な機能を利用して、連続するデータを二段飛ばしの行に反映させることは可能でしょうか？
たとえば、セル「Ａ１・Ａ２・Ａ３…」に「１０・２０・３０…」とあった場合、セル「Ｂ１・Ｂ４・Ｂ７…」に「１０・２０・３０…」と入力したいのです。
Ａセルのデータは固定値ではなく、良く変動します。
また、セル「Ｂ２・Ｂ３」に当るところにも他のデータが入ります。
何か解決策があれば教えてください。宜しくお願いします。

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エクセルで連続データから、数個飛ばしのデータを抜き取る方法

　 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

他の回答も見る

Q行に連番をつけたいのですが、空白セルには番号をつけないようにしたい。

Ａ　　Ｂ
１　　10
２　　20
　　　(空白）
３　 25

Ｂ列のセルに数値の入力があった場合に、Ａ列にナンバーを連番でつけていきたいのですが、できますでしょうか？

よろしくお願いします。

Aベストアンサー

#2です。
４行目「A4以下はA2をコピーする」は「A4以下はA3をコピーする」の間違いです。
たびたびすいません。

他の回答も見る

QEXCEL　1つ飛ばしのセル参照

A1には「=B1」
A2には「=B3」
A3には「=B5」・・・
というように、参照先の列を1つ飛ばしにしていく場合、
簡単にコピーしてA列を作る方法を教えてください！！

Aベストアンサー

＞A1には「=B1」
＞A3には「=B2」
＞A5には「=B3」であればどうなりますか？

A2、A4・・・は空白という意味であれば、A1に
　=IF(MOD(ROW(),2)=1,INDIRECT("B"&INT(ROW()/2)+1),"")
下方にフィルコピー

他の回答も見る

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

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

Aベストアンサー

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

他の回答も見る

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

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

例えば、シート１のC１に５を打ち込んだら、シート２のD２にシート１で打ち込んだ５が自動で表示される。

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

Aベストアンサー

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

１．１つのセルだけの場合
例）シート１のC１に５を打ち込んだら、
　　シート２のD２にシート１で打ち込んだ５が自動で表示される

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

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

他の回答も見る

Q番号を飛び番号の連番で入力したい。

番号を飛び番号の連番で入力したい。

excelで質問ですが、連続番号を入力する時、“１”と入力したら、そのセルをクリックしてカーソルを右下にもっていくと、黒十字に変わるのでそれをクリックしたままドラッグすると連番が入力されると思います。では、10番飛びに番号を振るにはどうしたらいいでしょうか？
たとえば、”１０００１”と入力し、その次のセルは“１００１０”となり、そのまま１０番飛びれ連番に表示させたいのです。入力数が多く、一つ一つ番号を入力するのは、とても出来ません。どなたかよろしくお願いいたします。

Aベストアンサー

基本的に、「数字」のオートフィル操作を勘違いされているようです。

文字列の数字や日付、時刻などは1つのセルのオートフィル操作で連続データが入力されます。
一方、1つのセルに入力された数字をオートフィルして連続データとしたいときは、Ctrlキーを押しながらドラッグする必要があります（デフォルトの設定でコピーされるものは連続データに、連続データとなるものはコピーになります）。

一定間隔のオートフィルコピーをしたい場合は、2つのセルに開始値と次の値を入力し、この2つのセルをコピーする必要...続きを読む

他の回答も見る

Q別シートのセルを3つ飛ばしで引用したいです

初心者の為、説明不足になりましたらすいません。

Excel2007を使用しているのですが、別シートのセルを3つ飛ばしで引用したいのですが出来なくて困っています。

例えて言うと・・・

シート名：商品別

　　　　列A　　　列B　　列C

行1　　　商品1 　単価　2000
行2　　　　　　販売数　20
行3　　　　　　売上　 40000
行4　　　商品2 単価　 1000
行5　　　　　　　販売数　10
行6　　　　　　　売上　 10000
　　　　　・
　　　　　・
　　　　　・

というシートの、...続きを読む

Aベストアンサー

≪隣の列が空白あるいはデータが連続していない場合≫
B1に、=商品別!C3 と参照式を入力
参照式の頭に#を入力、#=商品別!C3
名前ボックスに、B1000 と入力
Shift＋Enter でB1:B1000を選択
F2キーでアクティブセル（B1）を編集モードにする
Ctrl＋Enter でB1:B1000に #=商品別!C3 が入力される
B2に、#=商品別!C6 と入力
B1:B2 を選択し、選択枠の右下角の■（フィルハンドル）をダブルクリック
#=商品別!C3
#=商品別!C6
#=商品別!C9
・
・
・
オートフィル範囲が選択状態のまま
編集メニューの「置換」で
#=
を
=
に「すべて置換」

他の回答も見る

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

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

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

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

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

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

宜しくお願いします。

Aベストアンサー

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

でどうでしょうか？

他の回答も見る

ページトップ