![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67b6d)
No.2ベストアンサー
- 回答日時:
こんばんは
関数を使った方法です。
データはA1から入っているとします。
B1に
=IF(A1>0,1,0)
B2に
=IF(A2>0,B1+1,0)
とし、以下B2をオーフィル
C1に
=MAX(B:B)
としますと、C1にご希望の結果が得られます。
VBAと関数、方法は違いますが、#1のmerlionXXさんの考え方とほぼ同じです。
できました!
なるほど、こういう方法があるんですね。
知っている関数でも発想が思いつきませんでした^^;
ありがとうございます。解決しました。
No.3
- 回答日時:
こんばんは!
かなり泥臭い方法になりますが・・・
↓の画像でB2セルに
=IF(OR(A2="",A2<0),0,1)
B3セルに
=IF(A3="","",IF(A3<0,0,B2+1))
という数式を入れ、B3セルをオートフィルでずぃ~~~!っと下へコピーしています。
そして、結果のD2セルは
=MAX(B:B)
という数式にしています。
以上、参考になれば良いのですが、
他に良い方法があれば読み流してくださいね。m(__)m
![「MS Excelで連続したデータの個数を」の回答画像3](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/9/667667_5497df63cb324/M.jpg)
No.1
- 回答日時:
VBAでよければ以下の手順をおためしください。
データはA1から始まるとしてあります。
1.Altキー+F11キーで Visual Basic Editor画面を呼び出します。
2.画面上部のメニューバーから挿入、標準モジュールで出てきたコードウィンド(右側の白い広い部分)に以下のコードをコピペします。
'*****ここから下をコピペ*****
Sub test01()
Dim myC As Range, i As Long, myX As Long
Set myC = Range("A1")
Do While myC <> ""
If myC.Value > 0 Then
i = i + 1
Else
i = 0
End If
myX = Application.Max(myX, i)
Set myC = myC.Offset(1)
Loop
MsgBox myX
Set myC = Nothing
End Sub
'*****ここより上までをコピペ*****
3.Alt+F11キーでワークシートへもどります。
4. Alt+F8キーでマクロを呼び出し「test01」を実行します。
ありがとうございます。
マクロうまく動作しました。
スミマセン、こちらの質問内容に不足が有りました。教えて頂いて申し訳ないのですが、
MsgBoxに表示させるのではなく、最大個数を任意セルに常時表示させておきたいと思っております。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
excelで、スクロールをすると限...
-
EXCEL アルファベットと数字の...
-
エクセル 数値を全て「1」にす...
-
複数のセルの入力内容を一度に...
-
excelで1行ごとに一気に削除す...
-
セルをクリックすると付箋のよ...
-
エクセルで1つおきに列を削除...
-
エクセルの画面で十字マークが...
-
エクセルで任意のセルをクリッ...
-
Shift押しながら、矢印ボタンで...
-
エクセルで0を除いて昇順に並...
-
エクセル 画面上の行数を調節...
-
Excel選択を繰り返すとセルの色...
-
データが入力された際に空白行...
-
エクセルでカーソルが四方に矢...
-
エクセルで連続データから、数...
-
SUM関数、行挿入時に自動更新す...
-
EXCELで不規則的に行の高さを変...
-
エクセルVBAでセル範囲のデータ...
-
エクセルの複数セルに同時に同...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
excelで、スクロールをすると限...
-
エクセルの画面で十字マークが...
-
EXCEL アルファベットと数字の...
-
エクセルで連続データから、数...
-
複数のセルの入力内容を一度に...
-
excelで1行ごとに一気に削除す...
-
エクセル 数値を全て「1」にす...
-
エクセルで任意のセルをクリッ...
-
セルをクリックすると付箋のよ...
-
エクセル 画面上の行数を調節...
-
エクセルでハイパーリンクのU...
-
Excel選択を繰り返すとセルの色...
-
Excelで表のデータを並び替えた...
-
Shift押しながら、矢印ボタンで...
-
ピポットテーブルエラー解決方法
-
エクセルでカーソルが四方に矢...
-
エクセルで1つおきに列を削除...
-
エクセルで0を除いて昇順に並...
-
エクセルVBAでセル範囲のデータ...
-
エクセルでウインドウ枠を固定...
おすすめ情報