数据左移，保持左边无空格

tongxon

如图片1所示，现在想把图中的Q、R、S列和U、V、W列某些未填满数据的行中的数据左移，保持左边无空格，例如，需要把R16单元格数据移动到Q16单元格，一次类推，最终希望达到的效果如图片2所示。我编写的代码如下：
Sub 移动数据()
Dim r
r = ThisWorkbook.Sheets(1).Range("b65536").End(xlUp).Row
ThisWorkbook.Sheets(1).Range("q2").Resize(r, 3).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
ThisWorkbook.Sheets(1).Range("u2").Resize(r, 3).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End Sub
结果确实图片3所示，求高手指点一二。

tgydslr

你是说以Q,R,S为一组，U,V,W为一组，把有空格的挪到这一组的前列吗
如果在原表上做，需要代码支持，就是vba了，加条判断就行了然后写入
如果在另处做的话可以用函数，做完以后在复制，选择性粘贴就行了。

810126769

请测试：
移动单元格 3-钻孔化验结果分析(已录入数据).zip (23.16 KB, 下载次数: 8)

2014-1-17 08:51 上传

点击文件名下载附件