![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?c9bd177)
No.4ベストアンサー
- 回答日時:
皆さんの回答に少し足すことで可能です。
B1は先頭なのでAがあるか確認するだけなので、「=IF(A1="","",1)」とします。
B2以降は=IF(A3="","",IF(A3=A2,B2+1,1))となります。
VBAでコードを記述する場合は下記のように、コードを記述することで、式を埋め込めます。
(直接値を編集してもいいでしょうどね)
----ボタンをおした時に列50まで式を埋め込む例----
Private Sub CommandButton1_Click()
Dim objRange As Range
Set objRange = Me.Range("A1")
Do Until objRange.Row > 50
If objRange.Row = 1 Then
objRange.Offset(0, 1).Value = "=IF(A" & CStr(objRange.Row) & "="""","""",1)"
Else
objRange.Offset(0, 1).Value = "=IF(A" & CStr(objRange.Row) & "="""","""",IF(A" & CStr(objRange.Row) & "=A" & CStr(objRange.Row - 1) & ",B" & CStr(objRange.Row - 1) & "+1,1))"
End If
Set objRange = objRange.Offset(1, 0)
Loop
Set objRange = Nothing
End Sub
No.6
- 回答日時:
関数というより数式?
>A列はソートまで完了している段階です。
といいつつ
>・A列に数値がない場合はB列に対してなにもしない
というのはどうか?。
値が無くなったら最終行では?、
もしくは、途中に文字でもあるか?。
>・A列に数値が入ってる場合にB列にNoを入れたい
>かつ
>・A列が同じ数値の場合はB列はNoを1から順番に入れたい
VBAでというからには多少の知識はあるとみたが、
この何がわからないのか、わからない。
カウントすることと前行との比較、他なんだろう?。
数式や関数でなくVBAでセル1つずつ判定を行ないたいのなら、
コントロールブレイクや順位付け、ソート、これらを学ぶ。
仕様=質問であるので、
省略しすぎないできちんと意図を伝えることも大事。
だからと言ってすべてを質問で教える必要はない、
要点だけのやりとり(=意図だけ)でもわかる人にはわかる。
No.5
- 回答日時:
質問の書き方が不完全。
ないしは例が少なすぎるか、読者がどう取るか想像力の欠如。A列の値(例えば1)がまた第3行より下で、あとで出現するのかどうか。
また途切れて後に、1の続きの塊が出てくるのか?出てきたとき振る番号は?
ばらばらで出てくると、ソートしないと、VBAでも難しいのだ。
No.1
- 回答日時:
A列のデータは昇順でソートされているみたいなので、
B1にとりあえず、「1」といれ、
B2以降には「=IF(A1=A2,B1+1,1)」という数式を入れ、下へコピーして下さい。
この回答への補足
早速の回答ありがとうございます。
A列はソートまで完了している段階です。
・A列に数値が入ってる場合にB列にNoを入れたい
かつ
・A列が同じ数値の場合はB列はNoを1から順番に入れたい
・A列に数値がない場合はB列に対してなにもしない
このような条件で関数、VBAを考えています。
質問内容が漠然としていてすいません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います 3 2022/11/20 14:35
- Visual Basic(VBA) ExcelのVBAを使い、複数シートの同一箇所を、同一条件にて一括でソルバーを回す方法について 1 2022/04/23 11:49
- Excel(エクセル) Excelで、別シートの表のステータスに伴った動的な自動転記をしたいです。 2 2023/06/14 15:56
- Excel(エクセル) エクセル・スプレッドシートで、一定数を超えたらゼロから再累計する方法 8 2022/05/28 03:52
- Excel(エクセル) A列が指定数値以上になったらD列の計算式を変更 3 2022/07/11 11:03
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Excel(エクセル) Excel関数 情報引用する方法 4 2022/07/31 20:59
- Visual Basic(VBA) VBAで、シート間の転記するコードをFOR~NEXTで教えてください。 9 2023/04/30 20:04
- Excel(エクセル) Excel2007での条件付き書式について 6 2023/05/02 10:56
- Visual Basic(VBA) VBA エクセル 条件の設定 1 2022/03/28 10:24
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの表で1年間の曜日を...
-
エクセルでの特別な文字を上に...
-
Microsoft Officeの中古は信用...
-
エクセルで会社の従業員のデー...
-
Excelで50個のセルに同じ文字を...
-
スプレッドシートで使う数式を...
-
エクセルでセルに標準で入力さ...
-
エクセルでB列でフィルターをか...
-
UNIQUE関数が使えないバージョ...
-
EXCELの質問です 119から足した...
-
libre 表計算ソフトの計算がう...
-
【マクロ】VLOOKUPにて参照元に...
-
お世話になります。 Excelを使...
-
【マクロ】 IFERROR関数をマク...
-
Excelで、項目の種類ごとにカウ...
-
エクセル日付 文字列の関数がエ...
-
【マクロ】セルに関数を入れる...
-
exselで最小数で並び替える関数
-
エクセルの空欄をつめて、次の...
-
Excel分析ツールでのポアソン回...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA、別ブックへ転記す...
-
エクセルでの作業計算方法について
-
時間によってファイル名が変わ...
-
【関数】適切な文字数の数字を...
-
Excelについて教えてください
-
エクセル初心者です 関数の入れ...
-
【マクロ】ファイル名の変更に...
-
UNIQUE関数が使えないバージョ...
-
エクセルの計算
-
【関数】先頭だけにある、半角...
-
Excelで、決まった行を繰り返し...
-
Excelでセルの値が同じか...
-
LOOKUP関数を使えばいいのでし...
-
Excel
-
はがきについて。
-
エクセルの条件付き書式につい...
-
エクセルのデーターが2か月前の...
-
エクセル②
-
エクセルで「-0.0」と表示さ...
-
Microsoft1Officeの互換ソフト...
おすすめ情報