Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


2520 / 13645 ツリー ←次へ | 前へ→

【67502】重複データの抽出 まりな 10/12/9(木) 16:31 質問[未読]
【67504】Re:重複データの抽出 kanabun 10/12/9(木) 17:47 発言[未読]
【67522】Re:重複データの抽出 まりな 10/12/10(金) 14:15 お礼[未読]
【67513】Re:重複データの抽出 UO3 10/12/9(木) 19:57 回答[未読]
【67514】Re:重複データの抽出 UO3 10/12/9(木) 19:58 発言[未読]
【67523】Re:重複データの抽出 まりな 10/12/10(金) 14:17 お礼[未読]

【67502】重複データの抽出
質問  まりな  - 10/12/9(木) 16:31 -

引用なし
パスワード
   まりな

どなたかわかる方!教えて下さい。


1.Sheet1のA1〜E20の100個のセルにデータが表示されている。
2.Sheet2の21列目(V列)にデータが縦に並んでいる。
2.のデータのうち1.のデータと重複している場合はSheet2の31列目に
「重複」と表記してほしい

よろしくお願いします。

【67504】Re:重複データの抽出
発言  kanabun  - 10/12/9(木) 17:47 -

引用なし
パスワード
   ▼まりな さん:

>1.Sheet1のA1〜E20の100個のセルにデータが表示されている。

こんどは 検索セル範囲が「表」なわけですね

Sub Try3()
 Dim c As Range
 Dim i As Long, n As Long
 Dim s, v
 Dim dic As Object
 Set dic = CreateObject("Scripting.Dictionary")
 For Each c In Worksheets("Sheet1").[A1:E20]
   If Not IsEmpty(c.Value) Then dic(c.Value) = Empty
 Next
 
 With Worksheets("Sheet2").Range("V:V")
  With Excel.Range(.Item(1), .Item(.Count).End(xlUp))
   v = .Value
   ReDim dup(1 To UBound(v), 0)
   For i = 1 To UBound(v)
     If Not IsEmpty(v(i, 1)) Then
      If dic.Exists(v(i, 1)) Then
        dup(i, 0) = "重複"
      End If
     End If
   Next
   .Offset(, 10).Value = dup
  End With
 End With
 Set dic = Nothing
 
End Sub

【67513】Re:重複データの抽出
回答  UO3  - 10/12/9(木) 19:57 -

引用なし
パスワード
   ▼まりな さん:

>2.Sheet2の21列目(V列)にデータが縦に並んでいる。

V列は22列だと思いますが・・・
いずれにせよ、V列を判定して結果をAE列に表示します。
Sheet2は1行目からデータというコードです。

Sub Sample()
 Dim z As Long
 With Worksheets("Sheet2")
  z = .Range("V" & .Rows.Count).End(xlUp).Row
  .Columns("AE").ClearContents
  With .Range("AE1").Resize(z)
   .Formula = "=IF(COUNTIF(Sheet1!$A$1:$E$20,V1)>0,""重複"","""")"
   .Value = .vaue
  End With
 End With
End Sub

【67514】Re:重複データの抽出
発言  UO3  - 10/12/9(木) 19:58 -

引用なし
パスワード
  
.Value = .vaue
おはずかしいです

.Value = .Value に直してください。

【67522】Re:重複データの抽出
お礼  まりな  - 10/12/10(金) 14:15 -

引用なし
パスワード
   ▼kanabun さん:

こんにちは。まりなです。
kanabunさん!またまた助けて頂きありがとうございます。
ばっちりできました。
本当に何でもできてしまうんですね!

もしもお時間があれば、前回の「重複したデータにしるしをつける」
の桁数が多いと上手くできなかった点についても原因が
わかれば教えて下さい。。

よろしくお願いします。

【67523】Re:重複データの抽出
お礼  まりな  - 10/12/10(金) 14:17 -

引用なし
パスワード
   ▼UO3 さん:

こんにちは。回答ありがとうございました。
V列の列数については失礼しました。教えて下さりありがとうございます!!

2520 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free