
No.3
- 回答日時:
こんにちは
C3セルに
=IF(B3,ROW()-IFERROR(AGGREGATE(14,2,INDEX(ROW(B$1:B2)/(B$1:B2=1),,),1)+1,ROW()),"")
を入力して、下方にフィルコピーでいかがでしょうか。
せっかく教えていただいのですが、関数を入力しフィルコピーしましたがうまく反映されませんでした。勉強不足です。回答ありがとうございました。
No.2
- 回答日時:
No.1です。
関数での方法をご希望だというコトなので、無理やりやってみました。
↓の画像のように作業用の列を使います。
作業列D2セルに
=ROW()-MAX(IF(B$2:B2<>"",ROW(B$2:B2)))
配列数式なので、Ctrl+Shift+Enterで確定!(←必須★)しフィルハンドルでこれ以上データはない!という位まで下へコピーしておきます。
※ 10000行までフィル&コピーするのは大変なので、
E2セルに 1 を入力 → メニューの右側のΣのアイコンの下にある「フィル」のアイコンをクリック → 連続データの作成
→ 「列」を選択 → 停止値に「10000」を入力 → OK!
これで10000までの連続データが作成されますので、D2セルのフィルハンドルでダブルクリック!
これで連番最後まで数式がフィル&コピーされます。
その後E列は削除
C2セルに
=IFERROR(IF(B2="","",LOOKUP(10^10,D$1:D1)),"")
(配列数式ではありません)
という数式を入れフィルハンドルで下へコピーしています。
※ 作業列が目障りであれば、遠く離れた列にするか
非表示にしてください。
※ 配列数式を使っていますので、データ数が10000程度もあると
計算速度が極端に遅くなります。m(_ _)m

No.1
- 回答日時:
こんばんは!
>データ数は10000程です。
というコトなので、手っ取り早くVBAでの一例です。
Sub Sample1()
Dim i As Long, lastRow As Long, cnt As Long
Dim myR
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
Range(Cells(2, "C"), Cells(lastRow, "C")).ClearContents
myR = Range(Cells(2, "B"), Cells(lastRow, "C"))
For i = 1 To UBound(myR, 1)
If myR(i, 1) = "" Then
cnt = cnt + 1
Else
myR(i, 2) = cnt
cnt = 0
End If
Next i
Range(Cells(2, "B"), Cells(lastRow, "C")) = myR
MsgBox "完了"
End Sub
こんな感じではどうでしょうか?m(_ _)m
ご回答ありがとうございます。
申し訳ありませんがVBAを使えないので関数で教えていただきますとたすかります。よろしくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【関数】=EXACT(a1,b1) a1とb1...
-
【マクロ】excelファイルを開く...
-
エクセルのリストについて
-
【マクロ】【相談】Excelブック...
-
エクセルの関数について
-
【マクロ】数式を入力したい。...
-
【マクロ】元データと同じお客...
-
【マクロ】実行時エラー '424':...
-
他のシートの検索
-
【マクロ】左のブックと右のブ...
-
【画像あり】オートフィルター...
-
Office2021のエクセルで米国株...
-
LibreOffice Clalc(またはエク...
-
vba テキストボックスとリフト...
-
エクセルのVBAで集計をしたい
-
【マクロ】【配列】3つのシー...
-
エクセルシートの見出しの文字...
-
【マクロ】【画像あり】ファイ...
-
【マクロ】【画像あり】❶ブック...
-
【マクロ画像あり】❶1つの条件...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【マクロ】元データと同じお客...
-
エクセルの関数について
-
【画像あり】オートフィルター...
-
エクセルのVBAで集計をしたい
-
エクセルのリストについて
-
【マクロ】数式を入力したい。...
-
【マクロ】【相談】Excelブック...
-
Office2021のエクセルで米国株...
-
【マクロ】実行時エラー '424':...
-
他のシートの検索
-
エクセルの複雑なシフト表から...
-
【マクロ】【配列】3つのシー...
-
vba テキストボックスとリフト...
-
【マクロ】左のブックと右のブ...
-
【マクロ】変数に入れるコード...
-
エクセルシートの見出しの文字...
-
【マクロ】別ファイルへマクロ...
-
【関数】同じ関数なのに、エラ...
-
Amazonでマイクロソフトオフィ...
-
ページが変なふうに切れる
おすすめ情報
当方VBAを扱えないため関数で教えていただくと助かります。
C列に関数を入力し下方にペーストなど。
よろしくお願い致します。