No.2ベストアンサー
- 回答日時:
その飛び飛びの空白が同じ列にあるなら、並べ替えをしたらよいのではないでしょうか。
いったん並べ替えをすると「元に戻す」くらいでしか元の状態に戻せませんが(つまり作業直後しかできない)、
作業用に1列挿入してそこに連番を振っておけば 最後に連番列で並べ替えなおせばいいので楽勝です。
(1) 連番列を作成
(2) 空白の混じっている列を「最優先されるキー」に、連番列を「2番目に優先されるキー」にして並べ替え
(3) 空白がかたまるので、001からオートフィルなどを使って値を入力
(4) 連番列を「最優先されるキー」にして再度並べ替え
(5) 連番列削除
ダミーを入れての並べ替えは経験があるので難なく操作できました。
もう少し熟考すれば良かったと反省しています。
お手数をお掛けしました。ありがとうございました。
No.3
- 回答日時:
こんなんでいかがでしょう?
Sub test()
Dim i As Integer
Dim count As Integer
Dim count3 As String
count = 0
For i = 0 To 20
If ActiveCell.Offset(i, 0) = "" Then
count3 = count
Do While Len(count3) <> 3
count3 = "0" & count3
Loop
ActiveCell.Offset(i, 0).Value = count3
count = count + 1
End If
Next
End Sub
ありがとうございます。
先の方の説明で解決できました。実際に操作するのは私ではないし、マクロには疎い方なので折角ですが、ポイントの対象から外させていただきました。申し訳ありません。
No.4
- 回答日時:
「ある列」とは特定の一列ということでよいのでしょうか。
1列に限定してブランクセルに3桁の連番を振るのであれば、こんなマクロでしょうか。Sub Macro()
Const trgCOL As String = "E" '←ここに処理する列を記述する
Dim LastR, wkNum As Long, c As Range
LastR = ActiveSheet.Cells(65536, trgCOL).End(xlUp).Row
For Each c In Range(Cells(1, trgCOL), Cells(LastR, trgCOL)) _
.SpecialCells(xlCellTypeBlanks)
wkNum = wkNum + 1
c.Value = wkNum
c.NumberFormatLocal = "000"
Next c
End Sub
マクロはALT+F11でVBE画面を開き、「VBAProjectエクスプローラのシート名右クリック」→「挿入」→「標準モジュール」で表示される画面にペーストして下さい。実行はALT+F8を押して、マクロ名を選択します。
ありがとうございます。
先の方の説明で解決できました。実際に操作するのは私ではないし、マクロには疎い方なので折角ですが、ポイントの対象から外させていただきました。申し訳ありません。
No.5
- 回答日時:
データが1シート上にある
いまだ1CELLも連番が入っていない
データ最上位行が3行目である
空白セルのある列はG列である
とします
1列作業列をください
仮にこれをAA列とします
まず第一段階として
AA3に
=IF(G3="",TEXT(COUNTIF($G$3:G3,""),"000"),G3)
と入力し
これをデータ最下位行までコピーしてください
第二段階として
今敷を入れたAAのセルをすべて範囲選択してコピーし
連番を入れたいG列に対し行ズレを起こさないように注意して値貼り付けしてください
第三段階として
不要となったAA列を削除してください
これでお望みのままになったと思います
如何でしょうか?
もし幾らかのセルは既に連番で埋まっているようなら
構文中のCOUNTIF($G$3:G3,"")の部分に
COUNTIF($G$3:G3,"")+53
という感じにその記入した最大値を加算するよう書き加えてください
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel VBA マクロ ある列の最終行迄を参照し、別の列の空白セルに値を入力したいです 2 2023/03/05 02:44
- Excel(エクセル) エクセルで#以降の文字を取得したい 1 2022/03/28 13:14
- Excel(エクセル) WORKDAY関数 4 2023/06/08 13:23
- Excel(エクセル) 複数セルデータを別シートの単一セルにコピーしたい。(詳細をご参照ください) 1 2022/12/14 15:08
- Excel(エクセル) Excel あらかじめ予定表があり、その月毎のセルに、リストの連続データを入れたい 2 2022/04/07 14:20
- Excel(エクセル) 列の複数ある空白セルを飛ばして、セルに並べて表示したい 3 2023/02/12 16:49
- Excel(エクセル) Excel>マクロ>特定のセルで同じ情報が登録されている行を1行にまとめたい(文字連結) 6 2023/01/05 16:30
- Visual Basic(VBA) エクセルVBAについて 2 2023/01/31 16:21
- Excel(エクセル) エクセルで日付に続けて連番を表示したい 6 2022/05/25 23:33
- Excel(エクセル) シート参照を含む数式を連続コピー 3 2022/12/10 11:42
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル②
-
エクセルVBA、別ブックへ転記す...
-
(マクロ)データをAブックからB...
-
エクセルを使っていて2024/5/15...
-
エクセルの暗号化なしのバーの...
-
Excelでセルの値が同じか...
-
エクセルの計算
-
vba Bookを最小にせずに、UserF...
-
【マクロ】必要な項目(列)の...
-
Excel
-
エクセル:一覧表に存在する文...
-
エクセルでの作業計算方法について
-
Excelで縦軸の書式を0:00形式の...
-
Microsoft 365の Excel を使用...
-
指定文字の間に
-
Googleスプレッドシートでファ...
-
エクセルで年休を管理する方法...
-
UNIQUE関数が使えないバージョ...
-
エクセル関数を教えてください
-
【マクロ】その時、その時で変...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報