アンケート一覧ページでアンケートを探す
ID非公開

2022/10/20 22:59

22回答

重複する文字を無くしリストを作りたい。 今晩は。 お詳しい方どうぞ宜しくお願い致します。

画像

Visual Basic62閲覧xmlns="http://www.w3.org/2000/svg">100

新機能 AI回答テストを実施中! テスト対象カテゴリ:歴史・悩み相談 ※回答がつかない場合は、画面のリロードをお試しください

ベストアンサー

NEW! この回答はいかがでしたか? リアクションしてみよう

ThanksImg質問者からのお礼コメント

回答ありがとうございました。 〜さんのコードが完璧に動作しましたのでベストアンサーとさせて頂きます。 72文字さんのは、折角頂きましたが『G5』の見出しまで持ってきてしまいました。 説明が分かりにくく申し訳ありませんでした。 お二人共に本当にありがとうございました(*^^*) また機会が御座いましたら同族宜しくお願い致します(*^^*)

お礼日時:2022/10/21 15:59

その他の回答(1件)

重複消したいなら連想配列に突っ込めばいいです。 見出しは文字列で比較でもして弾いてやれば良い Sub hoge() Dim dic As Object Dim c As Range Dim buf As Variant Dim row As Long: row = 45 Dim ws As Worksheet Set dic = CreateObject("Scripting.Dictionary") Set ws = ThisWorkbook.Sheets("Sheet3") For Each c In ws.Range("G5:G130") If Not dic.Exists(c.Value) Then dic.Add c.Value, "" End If Next Set ws = ThisWorkbook.Sheets("Sheet2") For Each buf In dic.Keys ws.Cells(row, "K").Value = buf row = row + 1 Next End Sub