Question

这是我正在使用的代码

For Each x In strText
    x.Offset(, 3).FormulaR1C1 = "=removeduplicates(RC[-1])"
    x.Offset(, 2).Value = x.Offset(, 3).Value
    x.Offset(, 3).ClearContents
Next x

问题在于范围是15张纸上的10,000个单元格，因此需要一段时间。有什么方法可以更快地做到这一点？

Answer 1

尝试一下

With strText
    .Offset(, 3).FormulaR1C1 = "=removeduplicates(RC[-1])"
    .Offset(, 2).Value = .Offset(, 3).Value
    .Offset(, 3).ClearContents
End With

在定义范围内循环遍历每个单元的更快方法-带偏移量？

1 个答案: