エクセルの行数カウントについて質問です。

質問

エクセルの行数カウントについて質問です。
A列に数千行文字が入っています。
a1には、Z001書いてあります。
A2以降には、Z002と記入してあるセルがあるまで8桁の文字列が記入されています。
（Z001～Z002までは毎回行数が変わります。）
Z002の次のセルには、またZ001と書いてあるセルがあり、同じようにZ002があるセルまでデータが入ってます。上記のような内容が数千行続きます。（Z001～Z002は毎回違います。）
８桁の数字のみを関数でカウントしたのですが、全部の数字の合計になってしまい、
現在は、マウスでZ001からZ002までを選択して、右下に書いてある行数を書き写しています。
このようなデータの行数をカウントするのによい手段はないでしょうか？
説明があまりうまくないかもしれませんが、よろしくお願いします。
z001→このような感じです。
1112g678
z002
z001
1453t67a
22222a38
Z002
z001
12578978
z002

回答No.1

mar00 · ベストアンサー

B1に1と入力して
B2こ
=IF(A2="z001",1,B1+1)
オートフィルで下にコピー
すると図のような感じなるのですが
これでよいのでしょうか。
違っていたら無視して下さい。

お礼

お礼が送れて大変もうしわけありませんでした。
IFはよく使っているのですが、教えて頂いた方法はまったく思いもつきませんでした。
勉強不足を痛感しています。
いままでの作業に比べれば非常に楽になると思います。
C列・D列などを工夫すれば、素敵になる感じがします。
大変ありがとうございました。

回答No.11

layy

参考）
ＶＢＡってどんな感じかのサンプルです。

Public Sub sample()
'セル内容を１つずつ編集します
'Ａ１を基準に、横１列×縦２０列のセルの操作を繰り返す
Dim W As String

Sheets(1).Select
Range("A1").Select
For X = 1 To 1
For Y = 1 To 20
W = Cells(Y, X)
If W = "z001" Or W = "z002" Then
' 区切りのときの処理
Else
If IsNumeric(W) = True Then
' セル8ケタ数字であるときの処理
Debug.Print W　　　　　　　　’←ＶＢＡのイミディエイトに表示
Else
' セル8ケタ数字でないときの処理
End If
End If
Next Y
Next X

MsgBox ("完了")

End

End Sub

これだけの記述で
事例のデータの「12578978」を表示させることができますから、
今回のことをきっかけにＶＢＡを学んでみましょう。

回答No.10

layy

いきなりカウント数出すよりは、ほかの列に作業用に情報設定する。
Z001からZ002までのグループ毎に連番つける。
８桁数字であるか判断し、同じグループ内での個数を数える。

こんなことすれば、
１つ目グループには０。２グループ目には０、３グループ目に１つ、イメージではありますがなんとかなるのでは、と思います。

回答No.9

KURUMITO

回答Ｎｏ4です。
あとから実はこれにしたかったなど言われておりますので、余計なことかもしれませんが次のようにしてはどうでしょう。

お示しのデータがＡ2セルから下方に入力されているとします。
Ｂ列は作業列としてＢ2セルには次の式を入力して下方にオートフィルドラッグします。

=IF(AND(A1="",A2=""),"",IF(AND(A1<>"",A2=""),MAX(B$1:B1)+1,IF(OR(ASC(A2)="z001",ASC(A2)="Z001"),MAX(B$1:B1)+1,"")))

そこでお求めの表ですがＤ列にはｚ001が出てきた回数を上から順に番号を付けて表示し、Ｅ列にはz001からz002までがどのセルからどのセルまでかを表示させます。Ｆ列にはその間に挟まれたデータの数を表示させます。

Ｄ2セルには次の式を入力し下方にオートフィルドラッグします。

=IF(ROW(A1)>MAX(B:B)-1,"",ROW(A1))

Ｅ2セルには次の式を入力し下方にオートフィルドラッグします。

=IF(D2="","","A"&MATCH(D2,B:B,0)&"～A"&MATCH(D2+1,B:B,0)-1)

Ｆ2セルには次の式を入力し下方にオートフィルドラッグします。

=IF(D2="","",MATCH(D2+1,B:B,0)-MATCH(D2,B:B,0)-2)

ご質問の答えはＦ列の数値になりますね。

回答No.8

lll49erlll

画像の添付に失敗しましたので 画像のみ UPします。

回答No.7

lll49erlll

【エクセルの行数カウントについて】

私が質問を理解してるか不安ですが、、、

　画像のように Ｂ列に =IF(A2="z001",0,IF(A2="z002",B1,B1+1))で、、

　　Ａ列がz001の時 ０として、Z002以外の時は上のセルに1を足して行き、
　　　　　z002の時　上のセルと同じ値をセットすれば、
　　　　　z002のＢ列にz001の次～z002の前までの個数が入ることになります。

　　ただし z001、z002は　半角、全角、大文字、小文字の判定をしてませんので
　　　間違いなく その文字列でなければなりません、

　　なお、Ｂ列は Ａ列の行の値が"z002"　以外の時は数値が煩わしいので文字は薄いグレーとし、
　　条件付き書式で Ａ列の行の値が"z002"の時だけ 太字の黒と下罫線を表示させてます。

　　Ａ列も、同様な条件付き書式を設定しています。

回答No.6

layy

VBAで行えば、数字か判断しながら行数数えながら結果を出せると思います。

A1がZ001か8桁文字か数字かZ002かみたら結果を出して、次はA2、の繰り返しです。。

関数なら区切り値か数字だけかの判定列をＢ列やＣ列に作ってやる。

12578978だけ、を関数でどう特定させるか、ですがそこはできてますか。

お礼

マクロは記録したものをちまちま張っているぐらいです。
いろいろな方に教えて頂き、ぜんぜん使えていない事にびっくりしています。
お答えいただき大変ありがとうございます。

回答No.5

imogasi

こういう対象とする行の始まりと終わりの変動するものは、関数では扱いが難しい。
VBA向きの問題だ。
ただし社業列を使うと以外に平凡。
例
質問ではｘは”Z001"、ｙは”Z002"に当たる。両カッコで囲むようなイメージ。
B列B1の式は　=COUNTIF($A$1:A1,"x")
下方向に式複写
A列　　B列
x 1
a 1
s 1
d 1
f 1
y 1
x 2
d 2
f 2
g 2
x 3
f 3
g 3
h 3
y 3
何処かの列へ（D列とする）
D列
1
2
3
・・・
を作っておく。
E1に　=COUNTIF($B$1:$B$100,D1)-2
式を下方向に複写
結果
D列　　E列
1 4
2 2
3 3
・・・
と入れて下方向に式を複写

お礼

マクロは自動記録をちまちまとつけるぐらいなので、
関数でこんなにすごい方法を教えてただきびっくりしました。
個別にカウントして、さらに集計までされるなんて！！
本当にありがとうございます。

回答No.4

KURUMITO

必ず8文字のデータが対象となっているのであれば次の式でよいでしょう。
データがＡ1セルからＡ100セルの間に有るとして

=SUMPRODUCT((LEN(A1:A100)=8)*1)

お礼

お答え大変ありがとうございます。
私の説明が雑なのですが、Z001とZ002にはさまれた行を、はさまれているデータくくりで
答えがでるかなとおもいました。（わかり辛いですよね・・すみません。）
教えていただいた内容も非常に参考になり、合計などで確かめたりするのに
役に立ちそうです。
本当にありがとうございます。

回答No.3

nattocurry

> ８桁の数字のみを関数でカウントしたのですが、

その関数を提示してみてください。

質問の例では、どんな結果が欲しいのでしょうか？

回答No.2

MackyNo1

具体的に度の湯王菜集計結果が得たいのかわからないのですが、最初のZ001とZ002の間の行数、2番目のZ001とZ002の間の行数などを順次別セルに表示したいということなら、以下のような数式で表示できます。

=SMALL(IF($A$1:$A$10000="Z002",ROW($A$1:$A$10000),10000),ROW(A1))-SMALL(IF($A$1:$A$10000="Z001",ROW($A$1:$A$10000),10000),ROW(A1))-1

配列数式ですので入力後Ctrl+Shift+Enterで確定して、下方向にオートフィルしてください。

お礼

返信送れて大変申し訳ありません。
こんなにすごい式ができるんですね。
私にはすこし難しいですが、なんとか勉強してみます。
大変ありがとうございました。