buc********

2022/6/18 10:31

33回答

VBA初心者です。ご教授ください。 . 下記図のように番号1～10000(未定)に名前が入っています。 同じ名前の個数を表示させたい場合にはどのようにVBAを組めばよろしいのでしようか?

VBA初心者です。ご教授ください。 . 下記図のように番号1～10000(未定)に名前が入っています。 同じ名前の個数を表示させたい場合にはどのようにVBAを組めばよろしいのでしようか? 「AAAA」は3回出てきますが、すべての「AAAA」の右横に3を入力させたいです。 少ない数でしたらFort～nextなどで力ずくで組んでしまうのですが、10000行を超えると時間がかかります。 また名前も数百種類もあると1つ1つ数えていくには無理がでてきます。 なにか良いほうほう構文などございませんか? 何卒よろしくお願いいたします。

画像

Visual Basic | Excel・137閲覧・xmlns="http://www.w3.org/2000/svg">250

ベストアンサー

0
taihenda****

カテゴリマスター

2022/6/18 15:05

こういう時は定番Dictionaryオブジェクトの登場だと思うが、 ちょっとやってみました。セル位置は添付図の通りで15,000行です。 CountIf関数を使うと私のぽんこつPCで30秒ちょっと、 Dictionaryオブジェクトは0.05秒、 はやり断トツで速いですね。 サンプルコードを2つ掲載します。 Sub test() Dim i As Long, D As Variant, V As Variant, dic As Object, s s = Timer Set dic = CreateObject("Scripting.Dictionary") D = Range("C3", Cells(Rows.Count, 3).End(xlUp)) ReDim V(1 To UBound(D), 1 To 1) For i = 1 To UBound(D) dic(D(i, 1)) = dic(D(i, 1)) + 1 Next For i = 1 To UBound(D) V(i, 1) = dic(D(i, 1)) Next Cells(3, 4).Resize(UBound(D)) = V MsgBox "所要時間:" & Format(Timer - s, "0.000") End Sub Sub カウントイフ() Dim i As Long, s s = Timer For i = 3 To Cells(Rows.Count, 3).End(xlUp).Row Cells(i, 4) = WorksheetFunction.CountIf(Columns(3), Cells(i, 3)) Next MsgBox "所要時間:" & Format(Timer - s, "0.000") End Sub

画像

その他の回答（2件）

0
osh********

2022/6/18 16:04

>番号1～10000(未定)に名前が入っています。 私の古いPCでは約10,000件で20秒ぐらいかかりますが... Application.Calculation = xlManual For ii = 1 To Cells(Rows.Count, "A").End(xlUp).Row Cells(ii, "B") = "=COUNTIF(A:A,A" & ii & ")" Next ii Application.Calculation = xlAutomatic

1
ggrks

カテゴリマスター

2022/6/18 10:53

＞Fort～nextなどで力ずくで組んでしまうのですが、10000行を超えると時間がかかり あなたが書いたコードをここに書くべきでしたね。中身を少し工夫するだけで処理時間が短くなるかもしれませんし、回答者の負担も減ります。また、全部誰かに書いてもらったとしても、あなたが知らない書き方だと、今後自力で保守できなくなります。あと、処理時間がどれくらいなら良いのかも書いた方がいいです。それによって書き方を選ばないといけません。

1人がナイス！しています

ggrks

2022/6/18 10:56

あと、シートのスクショを作る場合は、列番号、行番号が分かるようにした方がいいです。ここで誰かに書いてもらったコードは実際とは異なる列番号行番号を使っているはずなので、あとで自力で書き換えないといけなくなります。