|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
用数组,判断的结果也放数组里面最后一次处理。
For i = 3 To 10000
If ThisWorkbook.Sheets("数据源").Cells(i, 1) = "" Then Exit For
If ThisWorkbook.Sheets("数据源").Cells(i, 1) <> Cells(y, 4) Then
Cells(y + 1, 4) = ThisWorkbook.Sheets("数据源").Cells(i, 1)
y = y + 1
End If
这可以俩数组,判断第一个数组,改第二个对应数组,最后用第二个数组赋值。
For x = hs To 2 Step -1
If Cells(x, 7) = 0 Then Rows(x).Delete
If Application.WorksheetFunction.CountIf(Range("K1:W1"), Cells(x, 3)) = 0 Then Rows(x).Delete
Next
这也是一样 |
|