Excel VBA質問箱 IV

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

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


25961 / 76732 ←次へ | 前へ→

【56108】Re:行単位の比較方法
発言  Yuki  - 08/6/2(月) 11:22 -

引用なし
パスワード
   ▼74 さん:
><Aシート>   <Bシート>
>1 田中 男  1 田中 女 
>2 鈴木 女  2 鈴木 女
>3 高橋 男  3 高橋 男
>        4 加藤 男
>
>とあった場合、Cシートには下記のように抽出したいのです。
>
><Cシート>
>1 田中 女
>4 加藤 男
>
こんにちは。
こんな方法ではどうですか。

Sub TESTa()
  Dim SD As Object
  Dim i  As Long
  Dim j  As Long
  Dim vA As Variant
  Dim vB As Variant
  Dim vC As Variant
  
  Set SD = CreateObject("Scripting.Dictionary")
  With Worksheets(1)
    vA = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row).Value
  End With
  With Worksheets(2)
    vB = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row).Value
  End With
  ReDim vC(1 To UBound(vB), 1 To UBound(vB, 2))
  For i = 1 To UBound(vA)
    SD(vA(i, 1)) = Empty
  Next
  
  For i = 1 To UBound(vB)
    If Not SD.Exists(vB(i, 1)) Then
      j = j + 1
      vC(j, 1) = vB(i, 1)
    End If
  Next
  Worksheets(3).Range("A1").Resize(j, 1).Value = vC
End Sub

4 hits

【55989】行単位の比較方法 74 08/5/28(水) 20:41 質問
【55991】Re:行単位の比較方法 74 08/5/28(水) 21:20 発言
【56014】Re:行単位の比較方法 Abebobo 08/5/29(木) 17:18 発言
【56018】Re:行単位の比較方法 74 08/5/29(木) 18:11 回答
【56021】Re:行単位の比較方法 Abebobo 08/5/29(木) 19:39 発言
【56024】Re:行単位の比較方法 74 08/5/29(木) 20:34 お礼
【56027】Re:行単位の比較方法 Abebobo 08/5/29(木) 21:30 発言
【56046】Re:行単位の比較方法 74 08/5/30(金) 13:16 お礼
【56048】Re:行単位の比較方法 Abebobo 08/5/30(金) 13:45 発言
【56101】Re:行単位の比較方法 n 08/6/2(月) 0:37 発言
【56103】Re:行単位の比較方法 74 08/6/2(月) 9:18 お礼
【56105】Re:行単位の比較方法 Abebobo 08/6/2(月) 11:01 発言
【56150】Re:行単位の比較方法 n 08/6/5(木) 14:37 発言
【56154】Re:行単位の比較方法 Abebobo 08/6/5(木) 20:20 発言
【56108】Re:行単位の比較方法 Yuki 08/6/2(月) 11:22 発言
【56109】Re:行単位の比較方法 kanabun 08/6/2(月) 19:06 発言
【56113】Re:行単位の比較方法 74 08/6/3(火) 10:36 お礼
【56115】Re:行単位の比較方法 kanabun 08/6/3(火) 12:43 発言
【56139】Re:行単位の比較方法 74 08/6/4(水) 12:02 お礼

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