
エクセル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も見ています
-
【お題】大変な警告
【大喜利】「今このパソコンは大変危険な状態です」という警告メッセージを無視してパソコンを開いたら、こんなことが起こった
-
何回やってもうまくいかないことは?
みなさんには、何回やってもうまくいかないことはありますか?
-
あなたの「プチ贅沢」はなんですか?
お仕事や勉強などを頑張った自分へのご褒美としてやっている「プチ贅沢」があったら教えてください。
-
AIツールの活用方法を教えて
みなさんは普段どのような場面でAIツール(ChatGPTなど)を活用していますか?
-
一番好きなみそ汁の具材は?
みんなで大好きなみそ汁の具材について語り合おうよっ!
-
Countifよりも早く重複数をカウントする方法ありますか?
Excel(エクセル)
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
エクセルVBAで複数選択できるように設定したリストボックスの、選択され
Visual Basic(VBA)
-
-
4
指定した文字があった場合、その行を削除するマクロが欲しいです
Excel(エクセル)
-
5
EXCEL VBA マクロ 実行する度に処理速度がどんどん遅くなる原因が知りたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
リンク先のファイルを開かなく...
-
小数点以下を繰り上げたものを...
-
2つの数値のうち、数値が小さい...
-
エクセルで数式の答えを数値と...
-
エクセル指定した範囲からラン...
-
VLOOKUP関数を使用時、検索する...
-
一番多く表示のある値(文字列...
-
値が入っているときだけ計算結...
-
MIN関数で空白セルを無視したい...
-
ある範囲のセルから任意の値を...
-
エクセルで空白セルを含む列の...
-
エクセルのラベルの値(文字列...
-
爪が紫色?
-
健否~書類の書き方~
-
EXCELで条件付き書式で空白セル...
-
彼女のことが好きすぎて彼女の...
-
納豆食べた後の尿の納豆臭は何故?
-
エクセルでエラーが出て困って...
-
ワードのページ番号をもっと下...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
彼女のことが好きすぎて彼女の...
-
EXCELで条件付き書式で空白セル...
-
爪が紫色?
-
ワードのページ番号をもっと下...
-
エクセル指定した範囲からラン...
-
VLOOKUP関数を使用時、検索する...
-
2つの数値のうち、数値が小さい...
-
小数点以下を繰り上げたものを...
-
EXCELで式からグラフを描くには?
-
風俗店へ行く前のご飯
-
リンク先のファイルを開かなく...
-
エクセルで数式の答えを数値と...
-
勃起する時って痛いんですか? ...
-
値が入っているときだけ計算結...
-
MIN関数で空白セルを無視したい...
-
精子に血が・・・
-
一番多く表示のある値(文字列...
-
エクセルのラベルの値(文字列...
-
白血球が多いとどんな心配があ...
おすすめ情報