请教，如何用VBA将多行单元格合并在一行？

johnj4321

请问：
假设从1-1000行里，每行都有很多不为空且内容不规则的单元格，如何将每一行的空白单元格去掉，仅将有内容的单元格按行的顺序全部放置于A列？
使用VBA处理。

1		1	2	3	4
2		5	6	7	8	9
3		10	11	152		153		155	156									157
4		13	14
5
6
7
8		15	16
9
10
11
152
153		17	18
155
156
157
15
16
17
18

ta4

直接 用录制宏做一个就可以了，很简单的

johnj4321

ta4 发表于 2017-12-5 08:23
直接 用录制宏做一个就可以了，很简单的

新手，知道录制宏这个按钮，但是不知道具体怎么操作，麻烦帮做一下可以不？

ta4

Sub 数据排序()
Dim i&, u&, rng As Range
Columns(1).ClearContents
i = Cells.SpecialCells(2).Count
For Each rng In Cells.SpecialCells(2)
u = u + 1
Range("a" & u) = rng.Value
ext
With ActiveSheet.Sort
        .SetRange Range("A1:A" & i)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

ta4

Sub 数据排序()
Dim i&, u&, rng As Range
Columns(1).ClearContents
i = Cells.SpecialCells(2).Count
For Each rng In Cells.SpecialCells(2)
u = u + 1
Range("a" & u) = rng.Value
Next
With ActiveSheet.Sort
        .SetRange Range("A1:A" & i)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

ta4

以后面这个为准，你试一下

johnj4321

ta4 发表于 2017-12-5 21:41
以后面这个为准，你试一下

谢谢。你的非常不错，不过有个小瑕疵，就是不能按顺序。
周二早上的时候有个人告诉我另外一个代码，可以按顺序来，我给你看看。
Sub CommandButton1_Click()
   x = 1
   For i = 1 To 1000
      For j = 3 To 256
        If Cells(i, j) <> "" Then
        Cells(x, 1) = Cells(i, j)
        x = x + 1
        End If
      Next
   Next
End Sub