Private Sub Worksheet_Change(ByVal Target As Range)If Target.Address = "$D$2" ThenIf Len(Target(, 0).Value) = 0 Then Exit SubDim xm, nl, myArr, i, lRow, exist As BooleanlRow = Range("A1000").End(xlUp).RowmyArr = Range("A2:B" & lRow).Valuexm = Target(,...
|
|