在大型excel工作簿中删除行距和尾随空格的最佳方法

Question

我试图在20k记录表中删除文本前面和文本之后的空格。我尝试了不同的修剪VBA代码，但我没有得到我想要的结果。有时人们把记录复制到我们的工作表中，在文本前面和文本后面有很多空格，有时它不会删除所有的空格。

有人知道我该怎么做吗?

Answer 1

用于快速读取数据到数组中Arr = Rng。Currentregion你也可以用Arr = Rng。userange—我认为currentreregion只选择值

的相邻单元格用for循环遍历数组——复制最近使用的代码arr1(i, j) = Replace(arr1(i, j)， "")删除空格arr1(i, j) = Replace(arr1(i, j)， Chr(10)， ") '删除换行符

数据可以快速分配回工作表

Range = Arr—不要逐个单元格，这会减慢

与Excel单元格相比，在PC内存中更快地处理数据