- ベストアンサー
Excel2007での通し番号の振り方
- みんなの回答 （4）
- 専門家の回答
質問者が選んだベストアンサー
Count関数ご存知であれば、 品名がB列にあるとして =COUNTA(B2:B$2) で下までコピィ 或いは =IF(B2="","",COUNTA(B$2:B2)) 下までコピィしてみては如何でしょうか。
その他の回答 (3)
- mu2011
- ベストアンサー率38% (1910/4994)
一例です。 １行目は見出し行として、Ｂ列に品名があれば、Ａ列に通し番号を表示します。 A2に=IF($B2<>"",COUNTIF($B$2:B2,"<>"),"")を設定、下方向にコピー
お礼
解決できました。そのうえ勉強にもなりました。本当にありがとうございます。
- imogasi
- ベストアンサー率27% (4737/17068)
例 データ A列 B列 a 1 b 2 c 3 d 4 B２に=IF(A2="","",MAX($B$1:B1)+1) 下方向に式を複写。
お礼
うまくできました。ありがとうございます！
- xls88
- ベストアンサー率56% (669/1189)
空白行の数が一定という条件なら 例えば、A1に1と入力し、A1から空白セルのA4までを選択し、オートフィルすれば 1 □ □ □ 2 □ □ □ 3 □ □ □ 4 と、いうようにフィル入力することができます。 （□は空白セルを表わしています）
お礼
今回作成している表では空白行の数が一定ではないのですが、 今後、すごく活用できそうです。よい方法をありがとうございます。
関連するQ&A
- EXCELで1列に番号をつけるには？
教えてください。 EXCELで1列に番号をつけるには、オートフィルで1から順番にすることが、一般的ですが、 例えば、行を削除した場合、順番の番号がぬけてしまいます。 行を削除しても、番号が自動で順番になるにはどうすればよいでしょうか？ 例 １ ２ ３←この行を削除したら、１、２、４，５，６ ４ ５ ６ ７
- ベストアンサー
- Windows XP
- エクセルで連続番号が入らない。
エクセル2003です。 ブックの1つのシートにオートフィルで連続番号等が入らなくなったのですが原因がわかりません。こんなことあるのでしょうか。 具体的には、「A1」に「１」、「A2」に「２」を入力して A1及びA2セルを選択し、右下のフフィルハンドルを下にドラッグすると「１」が複写されてしまいます。曜日、年月等連続するものがすべて入りません。 計算式、複写のオートフィルは有効です。 原因と対処法方を教えてください。 このシートには、データが入力されています。
- ベストアンサー
- オフィス系ソフト
- Excel2002 オートフィル抽出について質問です。
Excel2002 オートフィル抽出について質問です。 初めての質問させていただきます。 主人が会社で使用するデーターなのですが、手元に来たときには６００行近い顧客名簿だったそうで エクセル２０００で作られていました。 そして、顧客名がが１行置きに作成されていたそうです。 オートフィルで顧客名のデーターを抜き出したいのですが 顧客名の入っている業は抽出されても、その下の空白の行は件中されません。 顧客名の入ってる業とそのすぐ下の行を一緒に週出する何かいい方法はないでしょうか？ 膨大な量なので手直しするのも時間がかかりそうで・・・ 何とかしてあげたいのです。 Ａ Ｂ Ｃ 顧客名 １１１ ２２２ ２３４ ５６７ 顧客名 １１１ ２２２ ２３４ ５６７ 顧客名 １１１ ２２２ ２３４ ５６７ みたいな表だそうです。 よろしくお願いいたします。
- ベストアンサー
- その他(データベース)
- excel 連続数字の入力
すみませんが、お尋ね致します。 エクセルの表から、ある条件でフィルターで抽出し、それの上の行から下の行へ、１ ２ ３ ．．． と続き番号を入力したいのですが、どうしたら簡単に入れられるのでしょうか？ オートフィルや、前のセルに１を足すという指示では、うまくいかないようなので・・・ ちなみに、抽出したものを新しいシートにコピー、という作業をすると、かえって手間がかかります。
- 締切済み
- その他MS Office製品
- Excel2007 オートフィルについて
あまりに初心者質問で恐縮です。 Excel2007に変えて間もないのですが、オートフィルが変で困ってブチ切れそうです。 1～100までオートフィルで入力しようとしたら、12の次は何度やっても1にしかなりません。 こんな面倒なことでもうかなり時間を使ってます。 助けて下さい。。。
- ベストアンサー
- オフィス系ソフト
- EXCEL2007マクロ/オートフィルについて
VBA初心者です。 EXCEL2007でオートフィルのマクロを作ったのですが、下記のケースで困っています。 A列のデータが入っている行までB列のデータをオートフィルで入力したく、 A列の最終行からデータが入っている行までを求めてB列のデータをオートフィルで入れるため、下記のマクロを設定しました。 Sub test() Range("B1").AutoFill Destination:=Range("B1", Range("A1048576").End(xlUp).Offset(, 1)) End Sub ところが、A列のデータが2行以上ある場合はうまくいくのですが、一行のみだった場合オートフィルができなくてマクロがとまってしまいます。 一行なので当然なのですが、このような処理をしたい場合、他に方法はないものでしょうか? お知恵を拝借できますと大変助かります。 どうぞよろしくお願いいたします。
- ベストアンサー
- Visual Basic
- E列が空白のとき、その空白行を削除し、番号を振り直す
windows7 Excel2003でマクロ勉強中です。 あるサイトにE列が空白のとき、その空白行を削除し、番号を振り直すという コードがありました。 自分で作った表（表の最上段の２行は項目名が入っています。）で 実行すると「Rangeメソッドは失敗しました。Globalオブジェクト」と エラーが出ます。エラーはでますが、処理自体は正しく実行されます。 このエラーの原因と回避するにはどうしたらよろしいでしょうか。 Sub E列が空白のとき、その空白行を削除し、番号を振り直す() Dim i As Long, j As Long '行削除の処理 For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1 If Range("A" & i).Value <> "" And IsNumeric(Range("A" & i).Value) = True Then If Range("E" & i).Value = "" Then Rows(i).Delete End If End If Next '番号振りなおし処理 '’’Range("A" & Rows.Count).End(xlUp).Offset(1).Select For i = 0 To Range("A" & Rows.Count).End(xlUp).Row If Range("A" & i).Value = "番号" Then j = 1 ・・・・・ここでエラー発生 If Range("A" & i).Value <> "" And IsNumeric(Range("A" & i).Value) = True Then Range("A" & i).Value = j j = j + 1 End If Next ActiveSheet.Protect End Sub
- ベストアンサー
- Visual Basic
- 2010Excelのオートフィルについて
2010Excelのオートフィルについて オートフィルについて 列に 1 2 3～と入力してると 途中でたまに勝手に日付(◯月◯日)となってしまいます。 デリートしても オートフィルじゃなく普通に入力しても どうしても日付になってしまいます。 これでは表が完成しないので、 どうしたら直せるか教えてください。
- ベストアンサー
- その他MS Office製品
- 入力規則とオートフィルタ
宜しくお願いします。 例 シート２ Ａ Ｂ Ｃ 1 品名 品種 業者名 2 3 . . 400 ２～４００行まで品名・品種・業者名が入っています。 これをオートフィルタ→業者名で絞り、その絞ったデータだけをシート１の任意のセルに入力規則で選べるようにすることは可能でしょうか？ エクセル２００３ 使用 ＶＢＡ使えません＾＾；
- ベストアンサー
- オフィス系ソフト
- Excel 空白セルの掛け算で答えがエラー、0の違いについて
よろしくお願いします。 Excel2002で作った表をExcel2003で開いて修正しています。 2つのセルを掛け合わせる計算のセルをオートフィルすると、掛けるデータのない行では#VALUE!のエラーになりました。 ここで空白データのセルでDeleteを叩いてみたところエラーが0に変わりました。 試しに関係のないセルで空白セル同士の掛け算をやってみると答えが0になりました。 エラーが出る場合と、0になる場合の違いは何でしょうか？ どうかよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
このようにすれば良いのですね。試してみます。 試しましたら結果をご報告します。ありがとうございます。