
No.2ベストアンサー
- 回答日時:
こんにちは
>コードorコードのヒントを教えて下さい
方法はいろいろあると思いますが、一番わかりやすいのは、ご質問文通りにA列について順に判断して処理してゆけば良さそうです。
漠とした質問をするよりも、わからないところを具体的に記した方が、適切なヒントを得られると思います。
もしも、全体的にわからないのなら、仮に、ヒントを貰ったところでできないと思います。
行の移動を行う場合は、都度移動すると結果的に行がずれるのでわかりにくくなります。
最後にまとめて移動するか、コピペしてから元を削除する方が賢明です。
例えば、こんな感じとか。
ただし、以下のロジックでは空白セルは別物と見做しますので、A列に空白セルが含まれる場合は、全てユニークなものとして残ります。
Sub sample()
Dim u As Range, lastc As Range, c As Range
Dim rw As Long
Set lastc = Cells(Rows.Count, 1).End(xlUp)
For rw = 1 To lastc.Row
Set c = Cells(rw, 1).Resize(, 2)
If Application.CountIf(Cells(1, 1).Resize(rw), c(1).Value) > 1 Then
If u Is Nothing Then Set u = c Else Set u = Union(u, c)
End If
Next rw
If Not u Is Nothing Then
u.Interior.Color = rgbGainsboro
u.Copy lastc.Offset(1)
u.Delete xlShiftUp
End If
End Sub
No.4
- 回答日時:
No.3
- 回答日時:
不明点です。
1.A列とB列のデータが例として提示されていますが、
実際は、C列、D列などにもデータがあるのでしょうか。
もし、あるなら、そのデータも行を移動するとき、一緒に移動しないといけません。
実際は、何列まで、データがあるのでしょうか。
2.お客様番号が空白(未記入)のデータはありますか。
例えば、以下のようなケースです。
お客様番号 内容
1 あ
1 い
未記入 う ・・・①
未記入 未記入 ・・・②
2 え
3 お
①と②の行のデータです。
もし、ある場合は、どのように扱えばよいのでしょうか。
ご質問、ありがとうございます
実際は約10列おどありますが
がっちゃんこしたいデータはB列の内容です
お客様番号は、連続しておりまして、未記入は
ありません
ご指導、宜しくお願いします
No.1
- 回答日時:
連想配列(Dictionaryオブジェクト)を利用するといいです。
0.連想配列を準備する
1.表を上から見ていく
1-1 その行のお客様番号が配列に入っている?
Yes→その行に色を付け、配列に入っている行番号の行に内容を統合する
No→お客様番号をキー、行番号をアイテムとして配列に格納
1-2 次の行へ(最後まで繰り返し)
2.色の付いた行を下に移動する
Yesで行移動してもいいんですが、
そうすると行がずれて間違いの元なので、
後で移動するのがおすすめです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Visual Basic(VBA) VBA指定行削除 2 2024/05/26 10:02
- Excel(エクセル) Excel2019 列と列(2列)の数値の重複を調べたい 1 2023/05/11 13:35
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) 別シートに順番で貼り付け 2 2023/04/13 19:53
- Excel(エクセル) エクセルでB列でフィルターをかけた時のA列のプルダウン窓に出てくる要素をコピーしたい 1 2024/06/14 09:25
- Excel(エクセル) エクセル関数に詳しい方、教えてください(テキスト関数と条件付書式) 1 2024/04/11 02:44
- Excel(エクセル) 【マクロ】セルに関数を入れる場合、列を追加した後に実行すると【文字列】になってしまう 1 2024/06/09 16:41
- Excel(エクセル) Excel条件が一致したセルの処理ついて 3 2023/06/13 10:33
このQ&Aを見た人はこんなQ&Aも見ています
-
初めて見た映画を教えてください!
初めて見た映画を覚えていますか?
-
いちばん失敗した人決定戦
あなたの「告白」での大失敗を教えてください。
-
最強の防寒、あったか術を教えてください!
とっても寒がりなのですが、冬に皆さんがされている最強の防寒、あったか術が知りたいです!
-
あなたなりのストレス発散方法を教えてください!
自分なりのストレス発散方法はありますか?
-
【お題】斜め上を行くスキー場にありがちなこと
運営も客も一流を通り越して斜め上を行くスキー場にありがちなことを教えて下さい。
-
Excel いい方法教えてください。
Excel(エクセル)
-
Excelの関数について このように、Iの個数に基づいて、 それの合計を、Dに表示させたいです。 下
Excel(エクセル)
-
Excelの計算が合いません。 諸事情で会計の簡素な購入・販売諸元表を作っているのですが、一つの項目
Excel(エクセル)
-
-
4
【再投稿】レイアウトが異なる別のワークブックからデータを転記する方法を教えてください
Excel(エクセル)
-
5
8:40までの出勤は全て8:30にする関数を教えて下さい!!
Excel(エクセル)
-
6
年間の医療費のデータがあり、月々の集計をする計算式を教えていただけませんか
Excel(エクセル)
-
7
excelVBAについて。
Excel(エクセル)
-
8
【マクロ】複数の日付データをYYYY/MM/DDに読替えて、別ブックへ転記したい
Excel(エクセル)
-
9
エクセル初心者です 用語等まだ良く分からないので簡単に説明していただけると幸いです タブの挿入、図形
Excel(エクセル)
-
10
エクセル数式に問題があります
Excel(エクセル)
-
11
excelVBAについて。
Excel(エクセル)
-
12
エクセルシート保護を解除させない方法。
Excel(エクセル)
-
13
excelVBAについて。
Excel(エクセル)
-
14
excelVBAについて。
Excel(エクセル)
-
15
エクセルのデータについて
Excel(エクセル)
-
16
vbe でのソースコード参照(msgbox)について
Excel(エクセル)
-
17
excelVBAについて。
Excel(エクセル)
-
18
エクセル初心者です 用語とか良く分からないので簡単に説明していただけると幸いです 表を作っているので
Excel(エクセル)
-
19
excelですが一つのマスに入ってる文字を2つのマスに変更できますか
Excel(エクセル)
-
20
フォルダの中にファイルがある場合 削除
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの条件付書式について教え...
-
マクロを実行すると、セル範囲...
-
別のシートの指定列の最終行を...
-
Excelファイルを開くと私だけVA...
-
【マクロ】シート追加時に同じ...
-
Excelでの文字入力について
-
Excelのデーターバーについて
-
エクセルで、数字の下4桁の0を...
-
【マクロ】Call関数で呼び出し...
-
システムファイルについて
-
エクセルの設定、下へスクロー...
-
Excel 日付の表示が直せません...
-
スプレッドシートでの数値集計
-
Excel関数の解決方法
-
エクセルの設定、特定の列以降...
-
エクセル 数字のみ抽出につて
-
エクセルで作った表が印刷する...
-
カーソルを合わせてる時のみ行...
-
UNIQUE関数の代用
-
SUBTOTAL関数のように同関数の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【マクロ】重複する同じ行を、...
-
Excelの条件付き書式のコピーと...
-
vba 印刷設定でのカラー印刷と...
-
VBA の単語の意味を教えて下さい。
-
Excel 日付の表示が直せません...
-
エクセル 同じ行の隣り合う数字...
-
エクセル条件付き書式について。
-
エクセルの数式につきまして
-
ファイル名の変更
-
エクセル 数字のみ抽出につて
-
Excelの開始ブックを固定したい...
-
エクセルの数式について教えて...
-
エクセルのセルをクリックする...
-
=INDIRECT(RIGHT(CELL("filenam...
-
エクスプローラーで見ることは...
-
Excelの関数で質問です
-
至急お願いいたします 屋上の備...
-
エクセルでセルに入力する前は...
-
関数を教えて下さい
-
Excel 関数での質問です
おすすめ情報