![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
エクセルVBAにて、重複データ処理の高速化を実施したいのですが、いい方法はありますでしょうか?
G列に10000文字が入力されており、重複データがあった場合は、G列入力文字の後ろに(1)、(2)、(3)と重複回数を追加し、G列の同じセルに上書きを行いたいのですが、重すぎて停止してしまいます。
重複データは、最大で、50個あります。
Sub 重複データチェック6()
Dim i As Long, j As Long
Dim LastRow As Long
Dim LastCol As Long
Application.ScreenUpdating = False ' 画面更新を止める
LastRow = Range("A" &Rows.Count).End(xlUp).Row
For i = 1 To LastRow
For j = 1 To 50
If WorksheetFunction.CountIf(Range(Cells(LastRow, 1), Cells(1, 7)), Cells(i, 7)) = j Then
Cells(i, 7) = Cells(i, 7) & "(" & j & ")"
Next j
End If
Next i
Application.ScreenUpdating = True ' 画面更新をするように戻す
End Sub
No.4ベストアンサー
- 回答日時:
こんばんは!
Sub Sample1()
Dim myDic As Object
Dim i As Long, lastRow As Long
Dim myR
Set myDic = CreateObject("Scripting.Dictionary")
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
myR = Range(Cells(1, "G"), Cells(lastRow, "G"))
For i = UBound(myR, 1) To 1 Step -1
If Not myDic.exists(myR(i, 1)) Then
myDic.Add myR(i, 1), 1
myR(i, 1) = myR(i, 1) & "(1)"
Else
myDic(myR(i, 1)) = myDic(myR(i, 1)) + 1
myR(i, 1) = myR(i, 1) & "(" & myDic(myR(i, 1)) & ")"
End If
Next i
Range(Cells(1, "G"), Cells(lastRow, "G")) = myR
Set myDic = Nothing
MsgBox "完了"
End Sub
こんな感じのコトをお望みなのでしょうか?
とりあえず配列に格納し、値だけを一気に吐き出しています。
※ お望みの結果でなかったらごめんなさい。m(_ _)m
No.3
- 回答日時:
LastRow = Range("A" &Rows.Count).End(xlUp).Row
For i = 1 To LastRow
j = WorksheetFunction.CountIf(Range(Cells(1, 7) , Cells(i, 7)), Cells(i, 7))
If j > 0 Then
Cells(i, 7) = Cells(i, 7) & "(" & j & ")"
End If
Next i
未検証ですけど。
No.2
- 回答日時:
「VBAで高速化」ということならセルへのアクセスは最小限にしましょう。
VBAでセルから値を取得するとき、
Variant型変数にSetなしでセル値を代入すると
Range型ではなく配列のVariant型として取得できます。
後は値の編集はVBA内でFor文やIf文でグリグリ回してやればOKです。
最後に編集した配列をそのままセルに出力可能です。
セルへのアクセス回数さえ減らせば、どんなロジックでも大抵劇的に高速化します。
今回の場合は「最初にG列から値を一括入力」「最後に編集結果をG列に一括出力」の2回のセルアクセスだけで実現できます。(逐次入出力ではなく一括入出力です。)
アドバイスありがとうございます。
配列を使用した場合の記載方法がわからず、困ってます。もし、可能であれば御教授願いますでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Visual Basic(VBA) vbaを早くしたい 5 2022/09/09 10:58
- Visual Basic(VBA) vba 重複データ合算 5 2023/07/05 18:55
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- Visual Basic(VBA) 3つの条件を指定してVBAで行を削除したい 条件1:分類1が重複 条件2:分類2が重複 条件3:個数 6 2022/06/24 11:07
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Visual Basic(VBA) 日付を重複させずに数えたい 4 2022/12/04 16:26
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルマクロ:複数列 重複があった場合、メッセージと印入れる方法
Excel(エクセル)
-
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
excel VBA 2つのシートの特定の列を比較して同じ値のセルがあったらその行を上書きしたい
Excel(エクセル)
-
-
4
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
5
エクセルで複数列の検索をマクロで行いたい
Excel(エクセル)
-
6
エクセルでエラーが出て困っています。
Excel(エクセル)
-
7
Dictionaryを使い4つの条件の一致で2つの集計列を集計したいのです
Visual Basic(VBA)
-
8
離れた2列を比べて重複しないデータを隣の列に表示させる方法 Excel
Visual Basic(VBA)
-
9
UserForm1.Showでエラーになります。
工学
-
10
エクセルVBA Unionはなぜ遅い?
Visual Basic(VBA)
-
11
Excel VBAでオートフィルタで抽出した列データを別シートの最終行にコピーするには
Visual Basic(VBA)
-
12
ユーザーフォームのテキストボックスに前回入力した値を表示する Excel
Visual Basic(VBA)
-
13
VBA 重複文字列 色付け
Visual Basic(VBA)
-
14
VBA A列にありB列にないものまた逆
Visual Basic(VBA)
-
15
Countifよりも早く重複数をカウントする方法ありますか?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
白血球が多いとどんな心配があ...
-
勃起する時って痛いんですか? ...
-
精子が黄色?
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
EXCELで条件付き書式で空白セル...
-
中出しをするとお腹が痛い・・・。
-
小数点以下を繰り上げたものを...
-
エクセル指定した範囲からラン...
-
甲状腺が腫れているが血液検査...
-
EXCELで式からグラフを描くには?
-
2つの数値のうち、数値が小さい...
-
精子に血が・・・
-
これって喉仏ですか? 私は女性...
-
値が入っているときだけ計算結...
-
ある範囲のセルから任意の値を...
-
【Excelで「正弦波」のグラフを...
-
一番多く表示のある値(文字列...
-
筋トレするとチンコが縮んじゃ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
白血球が多いとどんな心配があ...
-
検便についてです。 便は取れた...
-
勃起する時って痛いんですか? ...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
精子が黄色?
-
EXCELで条件付き書式で空白セル...
-
至急!尿検査前日にオナニーし...
-
これって喉仏ですか? 私は女性...
-
中出しをするとお腹が痛い・・・。
-
甲状腺が腫れているが血液検査...
-
2つの数値のうち、数値が小さい...
-
尿検査前日に自慰行為した時の...
-
EXCELで式からグラフを描くには?
-
小数点以下を繰り上げたものを...
-
ある範囲のセルから任意の値を...
-
口の中に黒い血の塊
-
【Excelで「正弦波」のグラフを...
-
エクセル指定した範囲からラン...
おすすめ情報