![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.2ベストアンサー
- 回答日時:
その飛び飛びの空白が同じ列にあるなら、並べ替えをしたらよいのではないでしょうか。
いったん並べ替えをすると「元に戻す」くらいでしか元の状態に戻せませんが(つまり作業直後しかできない)、
作業用に1列挿入してそこに連番を振っておけば 最後に連番列で並べ替えなおせばいいので楽勝です。
(1) 連番列を作成
(2) 空白の混じっている列を「最優先されるキー」に、連番列を「2番目に優先されるキー」にして並べ替え
(3) 空白がかたまるので、001からオートフィルなどを使って値を入力
(4) 連番列を「最優先されるキー」にして再度並べ替え
(5) 連番列削除
ダミーを入れての並べ替えは経験があるので難なく操作できました。
もう少し熟考すれば良かったと反省しています。
お手数をお掛けしました。ありがとうございました。
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
という感じにその記入した最大値を加算するよう書き加えてください
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.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
ありがとうございます。
先の方の説明で解決できました。実際に操作するのは私ではないし、マクロには疎い方なので折角ですが、ポイントの対象から外させていただきました。申し訳ありません。
お探しの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ランキング
-
2列に入っているデータを1列...
-
エクセルの数式バーのフォント...
-
【ExcelVBA】ダブルクォーテー...
-
【ExcelVBA】名前を付けて保存→...
-
Excel VBAで全ての矢印を赤色に...
-
数字入力後他の文字等が表示さ...
-
Excel 小さくなったスクロール...
-
エクセルをエクセレントに究める
-
【Excel】別シートから条件に合...
-
エクセルでファイルの最終更新...
-
エクセル関数を使って
-
計算能力
-
エクセル シート表示
-
Excel関数について教えてくださ...
-
Excelファイルが開けません
-
Excelに詳しい方! B列が「日...
-
シフト表をエクセルで作るとき...
-
Excelセルを跨いで合計を出す方法
-
excel2013 MonthDays 関数が使...
-
西暦や和暦の表示をyyyymmdd表...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
半角カタカナをヘボン式ローマ...
-
(マクロ)vlookupの元データを同...
-
エクセルで上位バイトのセルと...
-
exselの質問です
-
Excel 大小比較演算子による「...
-
Excel VBについての質問です。
-
エクセルの問題です。絶対値の...
-
非表示列の再表示に失敗
-
職場の人から聞かれており、こ...
-
Excel関数-文字列で自動作成さ...
-
Excelデータをコピペして、ペー...
-
ユーザー定義関数をアドイン登...
-
【マクロ】for next構文について
-
エクセルの日付を編集する
-
【マクロ】VLOOKUPにて参照元に...
-
exselで最小数で並び替える関数
-
libre 表計算ソフトの計算がう...
-
エクセルで表
-
エクセルの表で1年間の曜日を...
-
西暦和暦
おすすめ情報