[[20140825102352]] 『マクロで重複貼り付けしないようにする』(KISS) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『マクロで重複貼り付けしないようにする』(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.