Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2561|回复: 7

[已解决]大家看看这个程序该怎么写?

[复制链接]
发表于 2014-1-16 17:15 | 显示全部楼层 |阅读模式
图1所示,在源数据的2~5行有一些数据,但是它们没有紧密排列,现在想要达到下面的效果,使每行左侧不留空格,哪位给个代码呗?
最佳答案
2014-1-16 17:42
  1. Sub test()
  2.     Range("A3:E5").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
  3. End Sub
复制代码

图1

图1

附件.zip

3.69 KB, 下载次数: 12

发表于 2014-1-16 17:40 | 显示全部楼层
  1. Sub test()
  2.     Dim rg As Range
  3.     For Each rg In Range("a3:f5")
  4.         If rg.Value = "" Then
  5.             rg.Delete Shift:=xlToLeft
  6.         End If
  7.     Next
  8. End Sub
复制代码
回复

使用道具 举报

发表于 2014-1-16 17:42 | 显示全部楼层    本楼为最佳答案   
  1. Sub test()
  2.     Range("A3:E5").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
  3. End Sub
复制代码
回复

使用道具 举报

发表于 2014-1-16 17:42 | 显示全部楼层
请测试:
  1. Sub test()
  2. Sheet1.UsedRange.SpecialCells(xlCellTypeBlanks).Delete shift:=xlToLeft
  3. End Sub
复制代码
回复

使用道具 举报

发表于 2014-1-16 19:57 | 显示全部楼层
002.gif
不用代码,技巧就可以了
回复

使用道具 举报

 楼主| 发表于 2014-1-16 22:02 | 显示全部楼层
开心妙妙 发表于 2014-1-16 19:57
不用代码,技巧就可以了

能帮我看看这个怎么解决吗~~http://www.excelpx.com/thread-317773-1-1.html
回复

使用道具 举报

 楼主| 发表于 2014-1-16 22:03 | 显示全部楼层
本帖最后由 tongxon 于 2014-1-16 22:05 编辑
810126769 发表于 2014-1-16 17:42
请测试:


谢谢,学习了.请看看这个http://www.excelpx.com/thread-317773-1-1.html
回复

使用道具 举报

 楼主| 发表于 2014-1-16 22:05 | 显示全部楼层
lisachen 发表于 2014-1-16 17:40

谢谢了,学习中~~
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 21:58 , Processed in 0.564562 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表