Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

25965 / 76736

←次へ　｜　前へ→


	【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

3 hits

▼

【55989】行単位の比較方法 74 08/5/28(水) 20:41