单一条件如何调取多个数据。

外块300

Sub aa()
Range("d:z") = ""
r1 = [a1048576].End(xlUp).Row
r2 = [c1048576].End(xlUp).Row
For i = 1 To r2
For j = 1 To r1
If Range("c" & i) = Range("a" & j) Then
c = Range("a" & i).End(xlToRight).Column + 1
Cells(i, c) = Range("b" & j)
End If
Next
Next
End Sub

使用逐个循环，速度会慢点。

丨奈文摩尔丨

外块300 发表于 2015-1-20 15:58
Sub aa()
Range("d:z") = ""
r1 = [a1048576].End(xlUp).Row

谢谢你的回答，逐个循环式什么意思？我不懂

蒙蒙烟雪

來個字典法。小數點是保留6位 book1.rar (24 KB, 下载次数: 18)

2015-1-20 20:14 上传

点击文件名下载附件

1. Sub test()
   
2. [c:x] = ""
   
3. Dim r&, Arr, d
   
4. Arr = [a1].CurrentRegion
   
5. Set d = CreateObject("scripting.dictionary")
   
6. For r = 1 To UBound(Arr)
   
7.     If Not d.exists(Arr(r, 1)) Then
   
8.         d(Arr(r, 1)) = Round(Arr(r, 2), 6)
   
9.     Else
   
10.         If Round(Arr(r, 2), 6) <> d(Arr(r, 1)) Then d(Arr(r, 1)) = d(Arr(r, 1)) & "|" & Round(Arr(r, 2), 6)
    
11.     End If
    
12. Next
    
13. [c1].Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
    
14. For r = 1 To d.Count
    
15.     If InStr(Cells(r, "d"), "|") > 0 Then
    
16.         Cells(r, "d").Resize(1, UBound(Split(Cells(r, "d"), "|")) + 1) = Split(Cells(r, "d"), "|")
    
17.     End If
    
18. Next
    
19. End Sub

复制代码

破旧立新

谢谢，学习了

systone

学习一下先，谢谢

lusa

sayhi95 发表于 2015-1-20 12:20
数组，右拖下拉。PS:"A列、B列数据横向对应（即A1=B1、A2=B2）"让人难以理解啊

帅哥，麻烦看看我的帖子，我也是需要提取一个数据对应的几个数据，但是结果怎么不会出来啊？不知道是哪里错了，谢谢大神

lusa

大神好多啊，

lusa

timpanist 发表于 2015-1-20 12:27
数组公式，考虑到你数据行数的不确定性，这个公式可以不用再手动修改公式的引用范围

大神你好。能不能看下我发的帖子，也是差不多的问题，怎么不对呀，谢谢~~