Excel VBA質問箱 IV

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

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


22877 / 76732 ←次へ | 前へ→

【59229】Re:セル内の文字列の比較VBAの改変
発言  n  - 08/12/2(火) 21:26 -

引用なし
パスワード
   Sub try()
  Dim i As Long
  Dim j As Long
  Dim tbl, tbl2, v, k

  With CreateObject("Scripting.Dictionary")
    tbl = Range("D2", Range("D" & Rows.Count).End(xlUp)).Value
    tbl2 = Range("B2", Range("B" & Rows.Count).End(xlUp)).Value
    For Each v In tbl
      .Item(v) = .Item(v) + 1
    Next
    For Each v In tbl2
      If .Exists(v) Then
        .Item(v) = .Item(v) - 1
        If .Item(v) = 0 Then .Remove v
      End If
    Next
    i = 0
    For Each k In .Keys
      For j = 1 To .Item(k)
        i = i + 1
        tbl(i, 1) = k
      Next
    Next
  End With
  Range("F:F").ClearContents
  Range("F2").Resize(i).Value = tbl
End Sub

こんな感じです。

0 hits

【59222】セル内の文字列の比較VBAの改変 PN 08/12/2(火) 18:20 質問
【59223】Re:セル内の文字列の比較VBAの改変 n 08/12/2(火) 18:31 発言
【59227】Re:セル内の文字列の比較VBAの改変 PN 08/12/2(火) 21:20 発言
【59229】Re:セル内の文字列の比較VBAの改変 n 08/12/2(火) 21:26 発言
【59232】申し訳ありません。 PN 08/12/2(火) 21:39 お礼
【59231】Re:セル内の文字列の比較VBAの改変 Hirofumi 08/12/2(火) 21:37 発言
【59233】ダブルで回答をありがとうございます。 PN 08/12/2(火) 21:42 お礼

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