额外的解除限制器导致数据转移到右侧1列

所以我被给了一个.csv文件,不幸的是有一个字段有时包含一个客户名,格式为lastname,名字是抛出数据。 幸运的是,我可以检测到这种情况发生的原因,因为其中一列正在移动的列有一个固定的值。 一个例子:

好排:

[New Contact!] [phonenumber] 5939262 [Unknown] 2000 5083 5083 

坏行:

 [lastname] [firstname] [phonenumber] 2800 [Unknown] 2000 5061 5061 

所以如果第五列= [未知],我知道列需要左移这一行。 第一列包含没有被使用的数据,所以如果我失去了名字,我不在乎,这只是数字。

有没有简单的方法来做到这一点,而不重新生成数据?

您可以尝试使用此macros来修复导入后的文件:

 Sub fixIt() Dim r As Range For Each r In Worksheets("Sheet1").UsedRange.Rows ' <-- put the right sheet name here If WorksheetFunction.CountA(r) > 7 Then r.value = r.Offset(, 1).value Next End Sub