No.3
- 回答日時:
消してはならない「元のデータ」が何処にあるのか、その全てをセル番地で教えてください。
添付図で空白セルに見えているのが、空白セルでないのなら、どんなデータが入力されているのかを「頭を冷やして」具体的に明記されたい!
コメントありがとうございます。
「元のデータ」とは、B列のデータを指します。
セル番地で言うとすれば、B3,B5,・・・です。
B列で空白セルに見えているのは、空白セルです。
日本語が悪く、失礼しました。
No.5
- 回答日時:
こんばんは!
アップされている画像で
仮にB4セルに「201」と手入力すると
B列のそれ以降の空白セルに「202」からの連番を表示したい!というコトですね?
関数では無理だと思いますのでVBAでの一例です。
画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → Excel画面に戻り、B列の空白セルに数値を入力してみてください。
Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
Dim i As Long, cnt As Long
With Target
If .Column = 2 And .Count = 1 Then
If .Value <> "" Then
If IsNumeric(.Value) Then
If InStr(.Value, ".") = 0 Then
cnt = .Value
For i = .Row + 1 To Cells(Rows.Count, "B").End(xlUp).Row
If Cells(i, "B") = "" Then
cnt = cnt + 1
Cells(i, "B") = cnt
End If
Next i
Else
GoTo EH
End If
End If
End If
End If
Exit Sub
EH:
MsgBox "入力値が不正です"
Application.EnableEvents = False
.Select
.ClearContents
Application.EnableEvents = True
End With
End Sub 'この行まで
※ 色々エラー処理を考えると少し長くなりました。
※ 一旦チェンチイベントが実行されると元に戻せませんので
別Sheetで試してみてください。m(_ _)m
No.6
- 回答日時:
>元のデータを消してはなりません。
消してはいけない「元データ」とは何処にありますか?
>また、新たな連番の初期値(201)は手入力するとします。
何処に入力しますか?
質問の貼付画像のC4へ手入力するとC4セルに入力された数式を上書きしますので前項の「元のデータを消してはなりません。」と言う条件を満たせないでしょう。
仮にC1セルに初期値を手入力する場合は下記の数式をC3へ入力して下へオートフィルコピーすれば条件に合います。
=IF(B3="",IF(MAX(C$1:C2),MAX(C$1-1,C$2:C2)+1,""),"")
但し、C1セルに数字以外の文字が混在する文字列を入力するとエラーになります。
また、C2セルは未入力または数字以外の文字列でなければ算出される連番の値に誤差が生じます。
D3セルには次の数式を入力してC列と同様に下へオートフィルコピーすれば良いでしょう。
=IF(COUNT(B3:C3),SUM(B3:C3),"")
質問の表現をもう少し分かり易くすることで自分の思考もハッキリするようになります。
>「元データ」とは何処にありますか?
B列のデータそのものです。
>また、新たな連番の初期値(201)は手入力するとします。
何処に入力しますか?
C4です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBAについて 2 2023/01/31 16:21
- Excel(エクセル) [オートフィルター]機能について 3 2023/02/04 14:32
- Visual Basic(VBA) Excel VBA マクロ ある列の最終行迄を参照し、別の列の空白セルに値を入力したいです 2 2023/03/05 02:44
- Excel(エクセル) エクセル 自動計算 1 2023/01/30 13:28
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- Excel(エクセル) 列の複数ある空白セルを飛ばして、セルに並べて表示したい 3 2023/02/12 16:49
- Excel(エクセル) Excelについて質問です(ver2019) 1 2023/06/30 21:20
- Visual Basic(VBA) エクセルVBAで『A列』に新規で数値を入力し『B列』から右方向の空白セルにその値を貼り付ける方法 4 2022/11/05 08:37
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
- Excel(エクセル) 日付以外のデータを抽出したいのですが、 6 2023/06/27 13:32
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelでセルの値が同じか...
-
エクセルを使っていて2024/5/15...
-
【マクロ】必要な項目(列)の...
-
(マクロ)データをAブックからB...
-
エクセルVBA、別ブックへ転記す...
-
Microsoft 365の Excel を使用...
-
エクセル②
-
エクセルの暗号化なしのバーの...
-
エクセルの計算
-
指定文字の間に
-
Excelで縦軸の書式を0:00形式の...
-
エクセルで年休を管理する方法...
-
エクセル:一覧表に存在する文...
-
Excel
-
Googleスプレッドシートでファ...
-
エクセルでの作業計算方法について
-
UNIQUE関数が使えないバージョ...
-
エクセルで日付を数字+アルフ...
-
エクセル 白黒印刷で白線を印刷...
-
Excel ピボットテーブルで日付...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報