Excel VBA質問箱 IV

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

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


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

44863 / 76732

←次へ　｜　前へ→


	【36878】Re:アンマッチの一覧表作成

Kein - 06/4/17(月) 11:42 -


	引用なし

	パスワード

条件:

Sheet1=表1・Sheet2=表2 と仮定
1行目が項目・2行目以下がデータと仮定
Sheet1のAA:AC列を作業列とする。

Sub UnMatch_Data()
　 Dim LsR As Long
　
　 LsR = Worksheets("Sheet2").Range("A65536").End(xlUp).Row
　 Application.ScreenUpdating = False
　 With Worksheets("Sheet1")
　　　Application.Goto .Range("A1"), True
　　　.Rows.Hidden = False
　　　.Range("AA:AC").ClearContents
　　　.Range("AA2", .Range("A65536").End(xlUp).Offset(, 26)) _
　　　.Formula = "=$A2&$B2"
　　　.Range("AB2:AB" & LsR).Formula = "=Sheet2!$A2&Sheet2!$B2"
　　　On Error Resume Next
　　　With .Range("AC2", .Range("A65536").End(xlUp).Offset(, 28))
　　　　 .Formula = "=MATCH($AA2,$AB:$AB,0)"
　　　　 .SpecialCells(3, 1).EntireRow.Hidden = True
　　　End With
　　　.Range("AA:AC").ClearContents
　 End With
　 Application.ScreenUpdating = True
End Sub

4 hits

▼

【36865】アンマッチの一覧表作成 YBA 06/4/17(月) 9:28