A1からEE1000ほどの範囲(量?)のある表の抜けている行を自動追加したいのですが
エクセルに疎く、解決方法がわかりません。
どうか教えていただけますでしょうか?
通し番号 商品名 購入日 購入者 理由 満足度 ・・・・
1 りんご 2019/5/1 田中 昼食 満足 ・・・
2 みかん 2019/5/2 高橋 おやつ 不満・・・
5 アイス 20194/25 斎藤 朝食 満足・・・
8 大福 2019/3/15 遠藤 おやつ どちらでもない・・・
10
通し番号 商品名 購入日 購入者 理由 満足度 ・・・・
1 りんご 2019/5/1 田中 昼食 満足 ・・・
2 みかん 2019/5/2 高橋 おやつ 不満・・・
3
4
5 アイス 20194/25 斎藤 朝食 満足・・・
6
7
8 大福 2019/3/15 遠藤 おやつ どちらでもない・・・
と通し番号が飛び飛びのところを 空白行にしてそろえたいのですが
行も列も大量のため どうしていいか行き詰ってしまいました。
どなたか解決方法を教えていただけますか?
よろしくお願いいたします。
No.7
- 回答日時:
こんにちは!
手っ取り早く、VBAでの一例です。
Sub Sample1()
Dim i As Long, myMax As Long
Dim c As Range
myMax = WorksheetFunction.Max(Range("A:A"))
Application.ScreenUpdating = False
For i = 1 To myMax
Set c = Range("A:A").Find(what:=i, LookIn:=xlValues, lookat:=xlWhole)
If c Is Nothing Then
Cells(Rows.Count, "A").End(xlUp).Offset(1) = i
End If
Next i
Range("A1").CurrentRegion.Sort key1:=Range("A1"), order1:=xlAscending, Header:=xlYes
Application.ScreenUpdating = True
MsgBox "完了"
End Sub
こんな感じではどうでしょうか?m(_ _)m
tom04様
早速のお返事ありがとうございました。
お返事が遅れまして大変失礼いたしました。
wow...主様はプログラマーでいらっしゃいますか?(←素人ゆえ浅はかな発想ですみません)
し、素人には難解でございました。。。
もっと勉強しておきます。
でも、こちらのご回答がまた誰かのお役に立てますように!^。^
No.5
- 回答日時:
No4 逆だった
・別のシートのA列に上から順に1~1000(最終となっている連番まで)の番号を振る。
・上のシートB列に、VLOOKUP関数を入れてA列連番と元シートの連番でマッチさせ、元シートのどこかの列の値を入れる。
・B列を値に直して、#N/Aになっている行を残し、それ以外の行を削除
・#N/Aの行だけ残るから、連番を残してB列を削除
・それを元シートの最後以下へコピー
・元シートを連番順にソートする。
No.4
- 回答日時:
・別のシートのA列に上から順に1~1000(最終となっている連番まで)の番号を振る。
・上のシートB列に、VLOOKUP関数を入れてA列連番と元シートの連番でマッチさせ、元シートのどこかの列の値を入れる。
・B列を値に直して、#N/Aになっている行を削除し、残った行を全部、元シートの後ろへ追加(連番以外は一括クリアしておいてから)
・元シートを連番順にソートする。
t_fumiaki様
早速のご回答ありがとうございました。
お返事が遅くなりまして大変失礼いたしました。
早速やってみます!
追伸:fumiaki様、家族に同じ名前がいるので一瞬ドキッとしました 笑
No.2
- 回答日時:
こんにちは
方法はいろいろ考えられると思いますので、以下は関数を利用した一例です。
※ 元のデータがあるシートを「Sheet1」とします。
別のシートに成形したデータを作成することにして、そのシートのA2セルに
=IFERROR(IF(COLUMN(A1)=1,ROW(A1),VLOOKUP(ROW(A1),Sheet1!$A$1:$EE$1000,COLUMN(A1),0)),"")
の式を入力します。
このA2セルを選択状態で、必要な範囲まで右方、下方にフィルコピーします。
以上で、お求めのような表示結果になるのではないかと思います。
上記では、セルの値は関数式で参照した内容となっていますが、これを実際の値として固定させたいような場合は、セル全体を選択状態にして、
「コピー」→「値をペースト」
の操作を行うことで、値として固定することも可能です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 冷蔵庫・炊飯器 満足度の高い炊飯器 5 2022/04/25 19:29
- 流行・カルチャー フードロスについて 2 2022/05/05 15:06
- Excel(エクセル) Excelマクロ 差分抽出の方法が知りたいです。 2 2023/03/07 13:25
- ダイエット・食事制限 食べたい。。。痩せたい。。。 17 2023/08/02 11:32
- Excel(エクセル) 【条件付き書式】countifsで複数条件を満たしたセルを赤くする方法 2 2023/02/09 23:53
- その他(ネットショッピング・通販・ECサイト) 私の猛暑の中での一番の楽しみはネットショッピングです。 アイスかじりながらスマホでポチポチと買い回り 2 2023/07/31 02:18
- 食生活・栄養管理 【食欲の悩みです】長くてすみません。 もともと過食癖があるのですが、2週間以上止まらず困っています。 2 2023/02/15 11:01
- 数学 spi 非言語教えてください 1 2022/04/21 00:47
- 宗教学 日本のカジュアル宗教 2 2022/08/11 20:05
- 戦争・テロ・デモ パンデミックの際にはトイレットペーパーなど買い占めるべき?それともNG? 9 2022/07/13 11:37
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
エクセル 連番が途切れているところに空白行を入れる
Excel(エクセル)
-
エクセルで飛び飛びの日付をきちんと補完して並べ直すには?
Excel(エクセル)
-
歯抜けの時間を埋めて行の挿入
Excel(エクセル)
-
-
4
歯抜けの番号を埋めて行の挿入
Access(アクセス)
-
5
Excel上でのデータ数字が連番であることを確認する方法を教えてくださ
その他(Microsoft Office)
-
6
エクセルで欠番を見付けるには
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル初心者です 関数の入れ...
-
Microsoft1Officeの互換ソフト...
-
Excel ピボットテーブルで日付...
-
エクセル関数を教えてください
-
【マクロ】その時、その時で変...
-
【マクロ】読取専用のファイル...
-
LOOKUP関数を使えばいいのでし...
-
エクセル 白黒印刷で白線を印刷...
-
【関数】先頭だけにある、半角...
-
【関数】適切な文字数の数字を...
-
Excelのチェックボックスの使い...
-
エクセルでの作業計算方法について
-
Excelのpivotについて質問です
-
WPS OFFICEでの縦書きについて
-
時間によってファイル名が変わ...
-
エクセルのセルに同じ大きさの...
-
Aというブックの1というシート...
-
エクセルの順位別一覧表の自動...
-
西暦や和暦の表示をyyyymmdd表...
-
【マクロ】エクセルにかいてあ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報