[已解决]【求助】去掉空白的行，让数据连续

xdwy81129

B列有数据，没有公式的数据，但中间有空白的单元格

求教怎么在C列或者直接在B列显示为该B列去除空白行的数据。

请老师赐教。

另：我想应该是应用重新定义不为空的单元格组成数组的方法吧。

最佳答案

月排行榜 / 总排行榜

雨狐

2009-11-1 00:49

jPuNn41u.rar (7.76 KB, 下载次数: 16)

2009-11-1 00:49 上传

点击文件名下载附件
【求助】去掉空白的行，让数据连续

跳转到最佳答案楼层

linken_1840

选中需要进行处理的单元格区域,执行 数据<<筛选<<自动筛选,点击第一行的下拉箭头,选择最后的(非空白)

jiangming

这个行吗？

【求助】去掉空白的行，让数据连续

[em04]

xdwy81129

QUOTE:

以下是引用linken_1840在2009-11-1 0:19:00的发言：
选中需要进行处理的单元格区域,执行 数据<<筛选<<自动筛选,点击第一行的下拉箭头,选择最后的(非空白)

谢谢，可我需要用vb来做，这样通过按钮实现方便，请老师知道怎么做的赐教。

雨狐

jPuNn41u.rar (7.76 KB, 下载次数: 16)

2009-11-1 00:49 上传

点击文件名下载附件
【求助】去掉空白的行，让数据连续

xdwy81129

QUOTE:

以下是引用雨狐在2009-11-1 0:49:00的发言：

好有才哦，没有想到居然几句代码就搞定了，太行了。

感谢，真的很有才。

要是可以能用重新定义数组的方法指教下我就更感谢老师了。真想知道怎么个重新定义数组抛弃空白的单元格。

感谢老师。

windvchina

Sub a()
Dim arr, arr1()
Dim i&, j&
With Sheets("sheet1")
 arr = .Range("A1:A" & .[A65536].End(xlUp).Row)
 Do
    i = i + 1
    If arr(i, 1) <> "" Then
       j = j + 1
       ReDim Preserve arr1(0 To j)
       arr1(j - 1) = arr(i, 1)
       Debug.Print arr1(j - 1)
       End If
Loop Until i >= UBound(arr)
.Range("C1:C11") = arr1
End With
End Sub

这个试下。。好久没写了。有些忘了数组的使用了。。郁闷下。

zsd5237

学习

[em02][em02]

xdwy81129

QUOTE:

以下是引用windvchina在2009-11-1 3:32:00的发言：

Sub a()
Dim arr, arr1()
Dim i&, j&
With Sheets("sheet1")
 arr = .Range("A1:A" & .[A65536].End(xlUp).Row)
 Do
    i = i + 1
    If arr(i, 1) <> "" Then
       j = j + 1
       ReDim Preserve arr1(0 To j)
       arr1(j - 1) = arr(i, 1)
       Debug.Print arr1(j - 1)
       End If
Loop Until i >= UBound(arr)
.Range("C1:C11") = arr1
End With
End Sub

这个试下。。好久没写了。有些忘了数组的使用了。。郁闷下。

感谢，可惜没有对。

这里Range("C1:C11")不应该指定多少个数据，因为不知道，我该为Range("C1）或者Range("C:C")都不行。

求知123

学习一下