[已解决]修整表格中的错行

billyzhang0609

如附件所示：

          表格中的行有时候会 ‘错行’ ，我要把错行批量修复成正确的行。

          唯一知道的线索就是错误的行如果能从右向左黏贴在最后一列的单元格，就能修复错误。

          那么用VBA怎么实现？

最佳答案

月排行榜 / 总排行榜

dsmch

2015-2-12 21:12

1. Sub Macro1()
   
2. Dim i&, lie&
   
3. Application.ScreenUpdating = False
   
4. For i = 5 To Range("a65536").End(xlUp).Row - 1 Step 2
   
5.     lie = Cells(i, Columns.Count).End(xlToLeft).Column + 1
   
6.     Cells(i + 1, 1).Resize(1, 30).Copy Cells(i, lie)
   
7.     Cells(i + 1, 1).Resize(1, 30) = ""
   
8. Next
   
9. [a:a].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
   
10. Application.ScreenUpdating = True
    
11. End Sub

复制代码

跳转到最佳答案楼层

爱疯

实际情况都是这样错位的？

还有别的错位方式吗？

爱疯

第1次插入后，按F4，将重复之前的操作（插入），

所以B打头的区域，一次次右移...

baksy

...

billyzhang0609

爱疯 发表于 2015-2-12 15:48
第1次插入后，按F4，将重复之前的操作（插入），

所以B打头的区域，一次次右移...

7万行。。。。。。。。。

爱疯

给个十几行实际数据
不方便的数据，替换修改下，主要是要看看错误情况是否只有一种。
免得写完，还改。

billyzhang0609

爱疯 发表于 2015-2-12 15:39
实际情况都是这样错位的？

还有别的错位方式吗？

反正就是一行的数据断成2行。
还断得不一样，我的例子里面的模型还算是比较理想的。

有没有办法可以从右边往左边黏贴哦？
那就可以做个VBA找到最右边那列单元格为空，
然后将第二行的内容从右向左黏贴，就好了。

billyzhang0609

爱疯 发表于 2015-2-12 16:34
给个十几行实际数据
不方便的数据，替换修改下，主要是要看看错误情况是否只有一种。
免得写完，还改。

好的，稍等，我打开一个表要好久的。

billyzhang0609

爱疯 发表于 2015-2-12 16:34
给个十几行实际数据
不方便的数据，替换修改下，主要是要看看错误情况是否只有一种。
免得写完，还改。

截取了表格的一部分
请看附件，正确的行是前面几行，后面是错行。

dsmch

1. Sub Macro1()
   
2. Dim i&, lie&
   
3. Application.ScreenUpdating = False
   
4. For i = 5 To Range("a65536").End(xlUp).Row - 1 Step 2
   
5.     lie = Cells(i, Columns.Count).End(xlToLeft).Column + 1
   
6.     Cells(i + 1, 1).Resize(1, 30).Copy Cells(i, lie)
   
7.     Cells(i + 1, 1).Resize(1, 30) = ""
   
8. Next
   
9. [a:a].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
   
10. Application.ScreenUpdating = True
    
11. End Sub

复制代码