求教怎样将不同列中不同行的单元格内容相同的整理到同一列中去！

cnko · 发表于 2012-7-22 21:58

doitbest 发表于 2012-7-22 21:48
请参考附件

非常感谢您！excelhome 里高手很多啊，而且都很热心，我今天也是第一次来坛子里。如果是我的数据样本行数和列数有变化，还需要修改代码吗？

yangyangzhifeng · 发表于 2012-7-22 22:19

cnko 发表于 2012-7-22 21:51
已经得到我要的效果，非常感谢您啊！ yangyangzhifeng
再请问下您 ...

修改这一句arr = Sheet1.Range("b4:h" & irow)就可以了

doitbest · 发表于 2012-7-22 22:19

不需要了。。但是注意结果放在I1开始的区域中了，需要时可以调整

cnko · 发表于 2012-7-22 22:34

非常感谢两位高手的帮助！{:soso_e100:}excel真的好强大啊！

hbpaopao · 发表于 2012-7-23 01:13

本帖最后由 hbpaopao 于 2012-7-23 10:07 编辑

如果我没看错的话，LZ的文本编辑器是emeditor吧……
话所，VBA的解决方法被他们回答了，我就试试用emeditor的宏来做吧。
方法就是把要整理的整个区域复制到ee中，然后运行宏，全选复制，在粘贴回来即可。

PS：突然发现自己很无聊……{:soso_e110:}

小花鹿 · 发表于 2012-7-23 02:23

本帖最后由小花鹿于 2012-7-23 02:26 编辑

凑个热闹：
Sub test()
Dim ar, br(), i&, j&, d
Set d = CreateObject("scripting.dictionary")
ar = Range("b4:h" & [a65536].End(3).Row)
For i = 1 To UBound(ar)
For j = 1 To UBound(ar, 2)
      If ar(i, j) <> "" And Not d.exists(ar(i, j)) Then
         d(ar(i, j)) = d.Count
      End If
Next j
Next i
ReDim br(1 To UBound(ar), d.Count)
For i = 1 To UBound(ar)
For j = 1 To UBound(ar, 2)
      If d.exists(ar(i, j)) Then
         br(i, d(ar(i, j))) = ar(i, j)
      End If
Next j
Next i
[j4].Resize(i - 1, d.Count) = br
End Sub

将不同列中不同行的单元格内容相同的整理到同一列.rar (9.82 KB, 下载次数: 81)

cnko · 发表于 2012-7-23 10:24

{:soso_e113:}看来excelhome论坛里高手如云啊！

li5800600 · 发表于 2012-7-23 13:42

留下记号，有待以后使用

cnko · 发表于 2012-7-23 16:02

本帖最后由 cnko 于 2012-7-23 16:03 编辑

hbpaopao 发表于 2012-7-23 01:13
如果我没看错的话，LZ的文本编辑器是emeditor吧……
话所，VBA的解决方法被他们回答了，我就试试用emedito ...

人才啊！hbpaopao 你太利害了！你的方法很独特啊！但也能解决问题！高啊！{:soso_e179:}今天我的鲜花用完了，不然也给你来一分！{:soso_e113:}

cnko · 发表于 2012-7-23 16:09

hbpaopao 发表于 2012-7-23 01:13
如果我没看错的话，LZ的文本编辑器是emeditor吧……
话所，VBA的解决方法被他们回答了，我就试试用emedito ...

我刚用一个16列42行的数据样本测试了一下，遇到问题了，最后就乱了，并没有得到这样的效果

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

[已解决] 求教怎样将不同列中不同行的单元格内容相同的整理到同一列中去！

评分

评分