EXCEL去空白问题

比如A列有文字和空白。 我想实现把A列的文字按顺序取过来放置到B列中。这个需要编程吗？如何做呢？

8 个解决方案

#1

1,选择A列
2，数据--筛选--自动筛选
3，A列会出一个下拉箭头，点开，选“非空白”
4，复制，
5，如果你还要粘在原表里，那就在箭头那再选“全部”，粘贴。就哦了

#2

选择A列，定位-空值，删除整行，OK

#3

引用 2 楼 laoyebin 的回复:

选择A列，定位-空值，删除整行，OK

我是想A列输入完后，不需手动再做任何操作，B列自动就生成了啊。

#4

引用 1 楼 xiangzi15 的回复:

1,选择A列
2，数据--筛选--自动筛选
3，A列会出一个下拉箭头，点开，选“非空白”
4，复制，
5，如果你还要粘在原表里，那就在箭头那再选“全部”，粘贴。就哦了

我是想A列输入完后，不需手动再做任何操作，B列自动就生成了啊。

#5

引用 4 楼 yilin54 的回复:

引用 1 楼 xiangzi15 的回复:1,选择A列
2，数据--筛选--自动筛选
3，A列会出一个下拉箭头，点开，选“非空白”
4，复制，
5，如果你还要粘在原表里，那就在箭头那再选“全部”，粘贴。就哦了
我是想A列输入完后，不需手动再做任何操作，B列自动就生成了啊。

按钮能接受吗？

B列自动生成能实现，但需要考虑很多情况，代码会增加很多，比如你删除了某一行，改了某行等等。
从各方面考虑，我认为还是增加个按钮合适，把数据录入完，点按钮，B列生成。

#6

引用 5 楼 dsd999 的回复:

引用 4 楼 yilin54 的回复:
引用 1 楼 xiangzi15 的回复:1,选择A列
2，数据--筛选--自动筛选
3，A列会出一个下拉箭头，点开，选“非空白”
4，复制，
5，如果你还要粘在原表里，那就在箭头那再选“全部”，粘贴。就哦了
我是想A列输入完后，不需手动再做任何操作，B列自动就生成了啊。

按钮能接受吗？

B列自动生成能实现，但需要考虑很多情况，代码会……

按钮可以啊。这个按钮的代码大概怎么写呀？ 有没例子，我就写过C，这个代码没什么概念呀?

#7

引用 6 楼 yilin54 的回复:

引用 5 楼 dsd999 的回复:引用 4 楼 yilin54 的回复:
引用 1 楼 xiangzi15 的回复:1,选择A列
2，数据--筛选--自动筛选
3，A列会出一个下拉箭头，点开，选“非空白”
4，复制，
5，如果你还要粘在原表里，那就在箭头那再选“全部”，粘贴。就哦了
我是想A列输入完后，不需手动再做任何操作，B列自动就生成了啊。

按钮能……

录制宏会吗？录制个宏基本就能实现。

把A列的空白去掉，就不用B列了。

#8

引用 7 楼 dsd999 的回复:

引用 6 楼 yilin54 的回复:引用 5 楼 dsd999 的回复:引用 4 楼 yilin54 的回复:
引用 1 楼 xiangzi15 的回复:1,选择A列
2，数据--筛选--自动筛选
3，A列会出一个下拉箭头，点开，选“非空白”
4，复制，
5，如果你还要粘在原表里，那就在箭头那再选“全部”，粘贴。就哦了
我是想A列输入完后，不需手动再做任何操……

Sub Macro5()
'
' Macro5 Macro
'

'
    Range("A1:A9").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$A$9").AutoFilter Field:=1, Criteria1:="<>"
    Selection.Copy
    Range("B1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.AutoFilter
End Sub