[[20061122103324]]　『行をコピーしても通し番号が狂わない方法』（たむりん）　ページの最後に飛ぶ

『行をコピーしても通し番号が狂わない方法』（たむりん）

 いつも勉強させていただいき、ありがとうございますm(__)m

 以下のような表（抜粋）があります。
 №のセル位置はA9、グループ名のセル位置はB9です。
 毎月データが増えるので、行のコピーをして増やしていますが、
 通し番号をいちいち振り直さなければなりません。
 何か良い方法はありませんか？
 SUBTOTALで試行錯誤してみましたが、イマイチ解りませんでした；；

 №	ｸﾞﾙｰﾌﾟ名
1	東京○○
2	東京○○
3	東京■■
4	東京■■
5	東京■■
6	東京■■
7	情報Ｑ
8	企画
9	企画
10	企画
11	企画Ｓ
12	企画Ｓ
13	企画Ｓ
14	企画Ｓ
15	企画Ｓ
16	企画Ｓ
17	伊勢▲
18	伊勢▲
19	伊勢▲

 =ROW()　とすると連番が振られているように見えます。
 9行目に見出しがあるのであれば、　=ROW()-9　でも。
 (ROUGE)

 難しく考え過ぎていました。
 今後修正をして、オートフィルタをかけることもない（多分）と思うので、ROW関数で充分ですね。
 ありがとうございました^^
 （たむりん）

 すみません。過去の質問ですが、1つ条件がついてしまいました。
 行を非表示にした場合、表示されているもののみ通し番号をつけたいのですが、
 ご教授願えませんでしょうか？
 （たむりん）

 下の式を必要なところまでこぴー。
 =SUBTOTAL(103,$B$10:B10)
 （やっちん）

 #VALUE!が出てしまいます・・・。
 （たむりん）

 たむりんさんのExcelのバージョンは何でしょう？
 =SUBTOTAL(3,$B$10:B10) だと計算結果がでますか？　←コレ勘違いの間違いです…
[[20060329161529]]『表の中でフィルターをかけて、抽出したものに連番をふりたい』（グルメ） 
参考になるかもなので、貼っておきます。
(かなれっと)

 SUBTOTAL関数はオートフィルタには対応してますが、非表示には対応できないはずです。

 （川野鮎太郎）

 失礼しました＾＾；　非表示でしたね…
 オートフィルタとまるっきり勘違いしてしまいました～
 また、番号103だと非表示にも対応してくれますが、これはバージョン次第ですね…
(かなれっと)

 EXCEL2000で試してみると同じエラーが出ますね。
 103が無理なら後はVBA頼みかなあ。
 （やっちん）

 手作業ですが、多少は楽かも？という方法です。
満足度が低い場合は、ポイして下さい。

 A9セル以下で最初の可視セル（仮にA10セル）に　1　を手入力。
そのA列のセルから最終の範囲（例えば　A10:A55)を選択し、
【編集】-【ジャンプ】-【セル選択】とし、『可視セル』にチェックを入れOKとし、
【編集】-【フィル】-【連続データの作成】で、
範囲：列、種類：加算、増分値：1　でOK。
（多分、選ばれていると思いますが、確認してください）
VBAは出来ないので・・・orz
(sin)

 sinさんと衝突してしまいました^^;
 以下そのままコピー＆ペーストです。

 遅くなってすみません＆皆さん、色々ありがとうございますm(__)m
 オートフィルタでなく、非表示です。
 悲しいかな・・・バージョンはEXCEL2000です。
 そうするとVBAしかないのですね・・・？（たむりん）

 セルA2を選択し、挿入＞名前＞定義で参照範囲に　=GET.CELL(17, Sheet1!A2)+NOW()*0
 名前を適当に付ける（仮に行高さ）そしてOK

 セルA2に　=IF(行高さ,COUNT(A$1:A1)+1,"")　として下方にコピー

 （川野鮎太郎）

 鮎太郎さん、ありがとうございます。
 全く思いつかない方法です＠＠
 しかし、この数式を当てはめると循環式参照となってしまいます;;
 あれから№のセル位置がA2に変更になりました。
 A3からA108までが通し番号の欄で名前は”№”とつけました。
 どこをどの様に直したらよいのでしょうか？
 （たむりん）

 A3セルに　=IF(行高さ,COUNT(A$2:A2)+1,"")　です。

 （川野鮎太郎）

 17って何かと調べてみると・・・・、「行の高さ」。
 面白い方法ですね(^^
 勉強させていただきました～。
 （やっちん）

 >17って何かと調べてみると・・・・、「行の高さ」。
 こちらも参考にしてみてください＾＾
http://keep-on.com/excelyou/2001lng2/200110/01100049.txt
　
 （キリキ）(〃⌒o⌒)b

 キリキさんありがとうございます。
 保存しておこ～っと(^^
 （やっちん）

 鮎太郎さん、皆さん、ありがとうございます！！
 =GET.CELL(17, Sheet1!A2)+NOW()*0←Sheet1を本来のシート名に変更しました。
 A3セルに　=IF(№,COUNT(A$2:A2)+1,"")と入れました。

 しかし、すみません・・・行を非表示にしたすぐ下のところが歯抜けになってしまいます。
 ↓現在こんな状況です・・・。

 22
 23
 24

 26
 以下続いてます・・・
 （たむりん）

 A3から番号を入れるのであれば、A3を選択して、名前の定義の参照範圍は
=GET.CELL(17, Sheet1!A3)+NOW()*0　です。
数式はA3セルに　=IF(№,COUNT(A$2:A2)+1,"")　です。

 （川野鮎太郎）

 きちんと表示されました^^
 大変お騒がせしましたm(__)m
 参照範囲の数式をちゃんと理解したいと思います。
 長々とありがとうございました。
 （たむりん）

コメント返信：

[ 一覧(最新更新順) ]

[[20061122103324]] 『行をコピーしても通し番号が狂わない方法』（たむりん） ページの最後に飛ぶ

[[20061122103324]]　『行をコピーしても通し番号が狂わない方法』（たむりん）　ページの最後に飛ぶ