[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『マクロで重複貼り付けしないようにする』(KISS)
いつもお世話になっております
大変お手数と思いますが よろしくお願いいたします
マクロでデーター重複の場合貼り付けしないような
コードの書き方をご教授お願いいたします
With Sheets("業者一覧")
intRow = .Cells(Rows.Count, "A").End(xlUp).Row
M = 1
.Range("A" & M + intRow) = ComboBox2.Text '注文先 .Range("B" & M + intRow) = ComboBox3.Text '支店・営業所名 .Range("C" & M + intRow) = ComboBox4.Text .Range("D" & M + intRow) = ComboBox5.Text '住所
End With
上記の様に転記させてますが
ComboBox2&ComboBox3が重複の場合
書き込まないようにしたいのです
よろしくお願いいたします
< 使用 Excel:Excel2010、使用 OS:Windows7 >
重複を削除することにしました
.Range("A1:D1000").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
(KISS) 2014/08/25(月) 10:58
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.