A列にあって、B列にもある数字をC列に抜き出すマクロを作りたいです。

Excel23閲覧

ベストアンサー

0

その他の回答(1件)

1

一例です。 Sub test() Dim hai(), fnd As Range, i As Long, cnt As Long For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row Set fnd = Range("B:B").Find(Cells(i, "A"), LookAt:=xlWhole) If Not fnd Is Nothing Then cnt = cnt + 1 ReDim Preserve hai(1 To cnt) hai(cnt) = Cells(i, "A") End If Next i If cnt > 0 Then Range("C1").Resize(cnt).Value = WorksheetFunction.Transpose(hai) End Sub

画像

1人がナイス!しています