|
私もこんな感じに1個1個比較して処理する方法しか思いつきませんでした。
Sub njdn()
Dim MyRa As Range, i As Long, She2G As Variant
Set MyRa = Sheets("Sheet1").Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row). _
SpecialCells(xlCellTypeVisible)
For i = 1 To MyRa.Count
MsgBox "オートフィルタしたSheet1のA列の値" & MyRa.Cells(i, 1).Value & vbCrLf & _
"オートフィルタしたSheet1のA列の行" & MyRa.Cells(i, 1).Row
She2G = Application.Match(MyRa.Cells(i, 1).Value, Sheets("Sheet2").Columns(1), 0)
If IsError(She2G) = True Then
MsgBox "Sheet2には、ありませんでした。"
Else
MsgBox "Sheet2の" & She2G & "行目にありました"
'ここで、詳細の比較 & コピペ
End If
Next
End Sub
|
|