
No.3ベストアンサー
- 回答日時:
書き忘れ
ReDim Preserve arr(n) は 上に条件を書く事を想定した場合・・
条件がない場合
ReDim arr(対象範囲.count) で ループ前に設定する方が処理が早いです
No.2
- 回答日時:
こんばんは
ご質問を斜めから見ると多分外してるw(的外れなら忘れてください)
>条件が合うときに は分かりませんが A列B列にメールアドレスがあるのは 個人と会社とかPCとスマホとかでしょうか・・
会社(共通)などの場合は同じアドレスに複数同じメールが送信されるのを避けたいと言う事なのでしょうか?(個人、会社1通ずつは仕方ないとして)
そのような場合は、条件に合うメールアドレス(対象者)をまとめます
既にA列B列のデータがまとめたデータだとすると
そのアドレスデータの重複を削除すれば良い事になるので
元データを残す形の例として
シート関数のUniqueやおなじみのScripting.Dictionaryを使えば容易です
Unique (要:Excel365同等)
Sub sample()
Dim cell As Variant
Dim arr()
Dim n As Long
'配列を作成(注:B列最終行を範囲としています)
For Each cell In Range(Cells(1, 1), Cells(Rows.Count, 2).End(xlUp))
ReDim Preserve arr(n)
arr(n) = cell
n = n + 1
Next
Dim arrUnique As Variant
'配列から重複を除く
arrUnique = WorksheetFunction.Unique(arr, True)
'D列に出力
Range("D1").Resize(UBound(arrUnique)) = Application.Transpose(arrUnique)
End Sub
Dictionaryならば
Sub sample_01()
Dim Dic
Set Dic = CreateObject("Scripting.Dictionary")
Dim address_data
'値を配列に
address_data = Range(Cells(1, 1), Cells(Rows.Count, 2).End(xlUp))
Dim i As Long, j As Long
For i = 1 To UBound(address_data, 1) '行方向
For j = 1 To UBound(address_data, 2) '列(次元)方向
'登録されていない場合
If Not Dic.exists(address_data(i, j)) Then
Dic.Add address_data(i, j), 0
End If
Next
Next
'D列に出力
Range("D1").Resize(Dic.Count) = Application.Transpose(Dic.keys)
Set Dic = Nothing
End Sub
No.1
- 回答日時:
こんにちは
VBAでとのご質問ですが、通常の操作でも簡単にできます。
1)A列、B列をコピペで、C列1列に並べる。
2)C列を選択して、「データ」-「重複の削除」を実行
以上で、お求めの結果が得られると思います。
どうしてもVBAでなさりたい場合は・・
上記の操作を「マクロの記録」で行えば、ほぼ出来上がります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA sum ワークシートChange
-
Excelで、あるセルの値に応じて...
-
vba 重複データ合算
-
VBA 値と一致した行の一部の列...
-
VBA UserFormからの転記で
-
Excel VBAの解読について質問が...
-
エクセルVBA シートモジュール...
-
A列B列C列
-
VBAで列の再表示設定
-
合計数量から引いていく
-
Worksheets メソッドは失敗しま...
-
python.pandas
-
vba 2つの条件が一致したら...
-
B列のアクティブセルの隣の列...
-
【エクセル】文字列のマッチン...
-
VBAで指定した文字列を含む列を...
-
VBAの構文 3列置きにコピーし...
-
excel VBAを教えてください! s...
-
Excel vba について 変数 i = M...
-
エクセルで空白の件数をカウン...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Cellsのかっこの中はどっちが行...
-
Worksheets メソッドは失敗しま...
-
vba 2つの条件が一致したら...
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
IIF関数の使い方
-
VBAのFind関数で結合セルを検索...
-
Changeイベントでの複数セルの...
-
VBA 何かしら文字が入っていたら
-
【VBA】2つのシートの値を比較...
-
DataGridViewに空白がある場合...
-
VBAで、特定の文字より後を削除...
-
URLのリンク切れをマクロを使っ...
-
エクセル 2つの表の並べ替え
-
VBAを使って検索したセルをコピ...
-
VBAコンボボックスで選択した値...
-
VBAでのリスト不一致抽出について
-
複数csvを横に追加していくマク...
-
C# dataGridViewの値だけクリア
-
データグリッドビューの一番最...
おすすめ情報