关于excel里面怎么把A列至z列26组数据,变成一组!的问题
是把26列的数据合并成一列数据吗?
给你一个VBA代码,运行的效果是把sheet1表中的数据合并一列到sheet2表中,你试下,代码如下:
Sub mycol()
Dim x, y, z, m, ar()
With Sheet1
For y = 1 To 26
m = 。
Cells(Rows。Count, y)。End(3)。Row
For x = 1 To m
If 。Cells(x, y) “” Then
z = z 1
ReDim Preserve ar(1 To z)
ar(z) = 。
Cells(x, y)
End If
Next x
Next y
End With
Sheet2。Range(“a1”)。Resize(z) = Application。
Transpose(ar)
End Sub
追答 : 另外在代码的第7行,就是 If 。Cells(x, y) “” Then 这行内,把双引号前面先打一个半角的小于号,再打一个半角的大于号,不知道为什么在360内就是显示不出来那个不等于符号,只有你自己动手添加一下喽。
想了解更多,搜2207151376,然后上传附件,这样会更直观明了一些的。
。