Excel VBA 質問スレ Part51

Excel VBA 質問スレ Part51 at TECH

961:デフォルトの名無しさん
18/01/21 20:07:47.89 +2jqUeqC0.net
>>932
リストにあるかないかはわかるみたい
これなら配列に突っ込んで総当たりしていくのと変わらなそう
読みやすくはなるけど
Dim partsList As Object
Set partsList = CreateObject("System.Collections.ArrayList")
Dim partsData
Set partsData = Range("データの列")
Dim parts
For Each parts In partsData
　If Not partsList.Contains(parts.Value) Then
　　partsList.Add parts.Value
　End If
Next
出力処理省略

次ページ

続きを表示

1を表示