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も見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ある表にフィルターをかけて出...
-
Lookup関数
-
セルの数を求めたい
-
Excelを無料で使うには? パソ...
-
IFとIFS関数
-
エクセルの数式バーのフォント...
-
EXCELの散布図で日付が1900年に...
-
エクセル日付 文字列の関数がエ...
-
再質問です。マクロの修正箇所...
-
データチェックを行うエクセル...
-
エクセルで「ページレイアウト...
-
【ExcelVBA】名前を付けて保存→...
-
Excelピボットテーブルの1行目
-
エクセルの問題です。絶対値の...
-
Excelの表示についての質問
-
Excel関数について教えてくださ...
-
エクセルのツールバーから数値...
-
Excelで表を作ったところに文字...
-
DATE関数で現在の年齢を出した...
-
Excelデータをコピペして、ペー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
半角カタカナをヘボン式ローマ...
-
(マクロ)vlookupの元データを同...
-
エクセルで上位バイトのセルと...
-
exselの質問です
-
Excel 大小比較演算子による「...
-
Excel VBについての質問です。
-
エクセルの問題です。絶対値の...
-
非表示列の再表示に失敗
-
職場の人から聞かれており、こ...
-
Excel関数-文字列で自動作成さ...
-
Excelデータをコピペして、ペー...
-
ユーザー定義関数をアドイン登...
-
【マクロ】for next構文について
-
エクセルの日付を編集する
-
【マクロ】VLOOKUPにて参照元に...
-
exselで最小数で並び替える関数
-
libre 表計算ソフトの計算がう...
-
エクセルで表
-
エクセルの表で1年間の曜日を...
-
西暦和暦
おすすめ情報