Excelで列の表示をしないを利用したときの自動連番の入力の仕方

Excelで列の表示をしないを使用したときに、表示されているデータだけに自動連番を付ける方法を教えてください
よろしくお願いします

No.4 ベストアンサー 回答者： comv 回答日時： 2001/12/02 11:35

こんにちは！

>Excelのフィルタを利用すると選択データ（数値・文字）だけが表示されます
あっなるほど・・・「Excelで列の表示をしないを」は
「列」ではなく「行」だったんですね(^^;

　　Ａ　　Ｂ
１　　　タイトル▼
２　式　＊＊＊
３　↓　＊＊＊
４　↓　＊＊＊
５　↓　＊＊＊
６　↓　＊＊＊
７　↓　＊＊＊
８　↓　＊＊＊
９　↓　＊＊＊

式　セルＡ２に　=SUBTOTAL(3,$B$2:B2)
　　と入力後、必要行まで複写

参照先（この例ではＢ列）は、文字、数値、数式での""、
等はＯＫですが完全な空白があるとカウントされません
必ず、全部書き込まれた列（キー列等）を指定して下さい！

この回答へのお礼

大変有り難うございました
大変理解しやすくコメントしていただき助かりました。
これからも宜しくお願いします。

お礼日時：2001/12/02 12:37

No.3 回答者： nishi6 回答日時： 2001/12/02 01:47

＞Excelで列の表示をしないを使用したときに、

　　これは、ある列を『表示しない』としてあると解釈しました。

＞表示されているデータだけに自動連番を付ける
　　『表示されている』があやふやですが、『表示してある列の中で値の入っているセル（数値または文字）』としました。

解釈通りだとすると、非表示にした列を認識するのは算式ではできないと思い、下記マクロを書いてみました。
連番を書き出す位置の指定が無いので、選択した行の１行上に書き出しています。

操作方法としては、データが入っている１行（連番を振りたいデータが入っている行です）を選択して実行します。


ツール→マクロ→Visual Basic Editor でVBE画面に移り、挿入→標準モジュール　で標準モジュールを挿入し、そこに下記コードを貼り付けます。

Public Sub RenbanSet()
　　Dim rg As Range '選択範囲の1つのセル
　　Dim startNum As Double '連番の最初の数値
　　Const nStep = 1 '連番のステップ（いまは連番は+1）
　　Dim col As Integer 'カウンタ

　　startNum = InputBox("連番の最初の数値を入力します")

　　For Each rg In Selection '選択範囲に対して実行
　　　　If Not rg.EntireColumn.Hidden = True And rg.Value <> "" Then
　　　　　　'列が非表示でなく、入力があったら
　　　　　　rg.Offset(-1, 0) = startNum + col '選択した１行上(-1)に連番をセットする
　　　　　　col = col + nStep '連番を増やす
　　　　Else
　　　　　　'非表示列または未入力セル
　　　　　　rg.Offset(-1, 0) = ""
　　　　End If
　　Next
End Sub

No.2 回答者： comv 回答日時： 2001/12/02 00:57

追記　最後に書こうと思っていたものを書き忘れて

　　　ＵＰしてしまいましたm(__)m

対象のデータが　"" 以外の時、全て対象とする場合

　=IF(B2="","",MAX(A$1:A1)+1)

この回答へのお礼

大変有り難うございました
説明不足で申し訳ありませんでした。
Excelのフィルタを利用すると選択データ（数値・文字）だけが表示されます。その表示データの左側に連続した番号を入力する方法を教えてください

お礼日時：2001/12/02 09:40

No.1 回答者： comv 回答日時： 2001/12/02 00:37

こんばんは！

お望みが、
　数式でなのかＶＢＡでなのか
　連番が行なのか列なのか
不明で、かつ表示されるデータが数値なのか文字なのか
表示されない時の処理が　""　なのか　0　の非表示なのか
等、シート構成がわからないので不確かですが


　　Ａ　　Ｂ
１　　　タイトル
２　式　＊＊＊
３　↓
４　↓　＊＊＊
５　↓
６　↓
７　↓　＊＊＊
８　↓
９　↓

数式で１例

対象（Ｂ列データ）が文字列でかつ "" を無視する場合
セルＡ２に
　=IF(COUNTIF(B2,"?*"),MAX(A$1:A1)+1,"")

対象が数値でかつ ０ と　"" を無視する場合
　=IF(SUM(B2),MAX(A$1:A1)+1,"")

対象が数値でかつ ０ も対象とする場合
　=IF(COUNT(B2),MAX(A$1:A1)+1,"")

必要な下行までコピー

この回答へのお礼

大変有り難うございました
説明不足で申し訳ありませんでした

数式で連番は列　表示されるデータは数値・文字両方　表示されない時の処理はフィルタです　もしよければよろしくお願いします

お礼日時：2001/12/02 09:48