[已解决]集合并问题

left369 · 发表于 2014-4-13 07:45

本帖最后由 left369 于 2014-4-13 10:52 编辑

把U列数据合并到第一行。

最佳答案

dsmch

2014-4-13 09:25

Sub Macro1()
Dim arr, brr, i&, s&
arr = Range("u4:u" & Range("u65536").End(xlUp).Row)
ReDim brr(1 To 3, 1 To Columns.Count)
For i = 1 To UBound(arr)
If arr(i, 1) <> "" Then
s = s + 1
brr(1, s) = arr(i, 1)
brr(2, s) = Left$(arr(i, 1), 1)
brr(3, s) = Mid$(arr(i, 1), 2)
End If
Next
[1:3].NumberFormatLocal = "@"
Range("a1").Resize(3, s) = brr
Range("a1").Resize(3, s).Sort Key1:=[a2], Key2:=[a3], Header:=xlGuess, Orientation:=xlLeftToRight
Range("a2").Resize(2, s).ClearContents
End Sub

复制代码

yuan1987 · 发表于 2014-4-13 08:56

=INDEX(Sheet1!$A$1:$AD$1,1,ROW())
是不是描述的有问题，用这个函数试一下。

left369 · 发表于 2014-4-13 09:04

yuan1987 发表于 2014-4-13 08:56
=INDEX(Sheet1!$A$1:$AD$1,1,ROW())
是不是描述的有问题，用这个函数试一下。

你好，有VBA的方式么？
就是把U列的数据转置到第一行的意思。去掉空格及按第1位数从小到大排序。

dsmch · 发表于 2014-4-13 09:25

Sub Macro1()
Dim arr, brr, i&, s&
arr = Range("u4:u" & Range("u65536").End(xlUp).Row)
ReDim brr(1 To 3, 1 To Columns.Count)
For i = 1 To UBound(arr)
If arr(i, 1) <> "" Then
s = s + 1
brr(1, s) = arr(i, 1)
brr(2, s) = Left$(arr(i, 1), 1)
brr(3, s) = Mid$(arr(i, 1), 2)
End If
Next
[1:3].NumberFormatLocal = "@"
Range("a1").Resize(3, s) = brr
Range("a1").Resize(3, s).Sort Key1:=[a2], Key2:=[a3], Header:=xlGuess, Orientation:=xlLeftToRight
Range("a2").Resize(2, s).ClearContents
End Sub

复制代码

dsmch · 发表于 2014-4-13 09:27

2-3行为辅助列，建议数据从u4开始

left369 · 发表于 2014-4-13 09:33

dsmch 发表于 2014-4-13 09:27
2-3行为辅助列，建议数据从u4开始

好强大呀。

left369 · 发表于 2014-4-13 09:53

dsmch 发表于 2014-4-13 09:27
2-3行为辅助列，建议数据从u4开始

再问下老师，如果第一行不是从第一个单元格填入结果。而是从比如第7列开始填入。代码修改哪里呢？

dsmch · 发表于 2014-4-13 10:04

left369 发表于 2014-4-13 09:53
再问下老师，如果第一行不是从第一个单元格填入结果。而是从比如第7列开始填入。代码修改哪里呢？

用附件说明问题并模拟结果，建议把结果放在一列，这样可以最大程度的利用工作表

left369 · 发表于 2014-4-13 10:26

dsmch 发表于 2014-4-13 10:04
用附件说明问题并模拟结果，建议把结果放在一列，这样可以最大程度的利用工作表

哦哦，谢谢老师的安排，只是我不会修改代码放在一列呢。

dsmch · 发表于 2014-4-13 10:36

………………

		自动登录	找回密码
密码			注册