CountLarge, 1 To 2) Dim i As Long For Each y In range1.Cells i = i + 1 Data(i, 1) = y.Value Data(i, 2) = 0 For Each x In range2.Cells If StrComp(x.Value, y.
確定! 回上一頁