エクセルの関数

質問

質問させていただきます。

旅行のバスの台数を計算します。

Ａ１～２０までに、はじめから１～２０までの数値が入っています。これがバス台数となります。
Ｂ１から、バスが運行する度にその日の日付を入力します。

日付が入っているところまでが実際のバスの台数となります。

たとえば、Ｂ列の日付がＡ列の１３まで入力されたら、バスの台数は１３台ということになります。

それを、Ｃ１に自動で入るようなことはできますでしょうか？

Ｂ列のある場所に値が入ったら、Ａ列のここをイコールとしてＣ１に出すような。でも常にＢ列の一番下を参照させないといけないんですよね。

説明が下手で申し訳ありません。
ご理解頂けましたらご教授お願い致します。

回答No.3

merlionXX · ベストアンサー

#2です。
3つずつ結合しているということは、範囲はA1からA60、B1からB60ということですか？最初の質問のＡ１～２０までという範囲と随分違いますね。

=COUNTA(B1:B60)　としてみてください。

お礼

できました！
お手数かけました！ありがとう御座います！

回答No.4

imogasi

例データ　－－はセル結合したしたのセルの下部の罫線を示す
1 2008/1/1
2
3
--
4 2008/1/2
5
--
6 2008/1/3
7
--
8 2008/1/4
9
10
--
11 2008/1/5
13
--
14 2008/1/6
15
--
十分考えていないとは思うが
１５を出すにはVBAででも使わないとできないのでは。
１４行目は
Function fd(a)
'MsgBox Rows.Count
'MsgBox a.Column
d = Cells(Rows.Count, a.Column).End(xlUp).Row
'MsgBox d
fd = d

End Function
のような関数で出る。
これは通常関数で導出する回答は出るだろう。
しかしそのところのセルの結合行数（上例は２行だが何行でもありえるので）までは通常関数では出せないと思う。
セル結合状態や結合行数に関する関数は絶無と記憶する。
ーー
Sub test02()
MsgBox Range("b14").MergeArea.Cells.Count
End Sub
で１列だけがセル結合なら、上記でセル結合行数が出るから
上記の１４＋２－１で１５行目が最終で１５台ということになるのかな。
標準モジュールに
Sub test03()
d = Cells(Rows.Count, Range("b1").Column).End(xlUp).Row
mg = Range("b14").MergeArea.Cells.Count
Range("C15") = d + mg - 1 '結果をC１5に出す場合
End Sub
結果１５台

お礼

ご返答ありがとう御座います。
なかなか私にはレベルの高いお話ですね＾＾；
VBAも勉強してみようと思います。ありがとう御座いました！

回答No.2

merlionXX

要はB1からB20までで入力済みのセルの数を数えればいいんですよね？
それなら、
=COUNTA(B1:B20)
でいかがでしょう？

お礼

おおお！それは目からうろこです！
入力済みのセルの個数出せば同じことですね！

と、今やってみたのですが、Ｂ列は三つのセルを結合しているせいなのか、エラーが出てしまいました。しかもＣ１も結合しています。

なにか方法がありますでしょうか？

回答No.1

works2008

こんばんは
C1に「=20-COUNTBLANK(B1:B20)」と入力でどうでしょうか

補足

早速のご回答ありがとう御座います。

すみません、説明に不備がありました。
Ｂ列のひとつのセルは、Ｂ１～３など、三つを結合させています。もちろんＡ列も同様です。結合された三つのセルが２０個縦にならんでいるのです。

この場合、B1:B20が使用できませんよね。。
結合しても方法はあるのでしょうか？

説明不足すみません。