Sub 在区域内重复查找()Dim arr(), brr(), crr, i%Dim rng As RangeDim Myg As StringApplication.DisplayAlerts = FalseOn Error Resume NextR = ActiveSheet.[D65536].End(xlUp).RowFor j = 1 To RIf Cells(j, 4)0 ThenIf Cells(j, 6)"" Then GoTo ACells(j, 6) = Cells(j, 1): GoTo AEnd IfSet rng = Range("D1:D" & R).Find(C...
|