求助,下面类似的查找怎么实现

zhaobingznj · 发表于 2019-5-12 20:27

看图,希望把蓝色中的数据根据长度填入到红色区域

text1.zip (11.75 KB, 下载次数: 9)

zhenghaidong · 发表于 2019-5-13 23:12

爱莫能助！新人一个哎只能帮你没那么快沉下去

zhenghaidong · 发表于 2019-5-13 23:58

我也才学VBAv半个多月不知道对不对!
Sub sds()
Dim arr, brr
Dim i, k, y, x
y = Sheet1.Range("a65535").End(xlUp).Row
x = Sheet1.Range("e65535").End(xlUp).Row
arr = Sheet1.Range("a2:b" & y)
brr = Sheet1.Range("e2:f" & x)
ReDim crr(1 To x)
For i = 1 To UBound(arr)
For k = 1 To UBound(brr)
      If brr(i, 1) = arr(k, 2) Then
         brr(i, 2) = arr(k, 1)
      End If
Next k
Next i
Range("f2").Resize(x - 1, 1) = Application.Index(brr, , 2)
End Sub

jwjnh001 · 发表于 2019-5-15 13:12

学习半个月，水平可以了

zhaobingznj · 发表于 2019-5-17 22:28

zhenghaidong 发表于 2019-5-13 23:58
我也才学VBAv半个多月不知道对不对!
Sub sds()
Dim arr, brr

额不正确正确的应该红色区域和左边是一一对应的

佑卜子 · 发表于 2019-5-25 09:57

这就麻烦了，规格23种，长度只有3种。每一种规格只对应一种长度，而每一种长度却对应数个规格。所以理论上只能实现根据规格填写对应长度，所以楼主你的思路就有问题奥。

gjw5665 · 发表于 2019-6-6 09:05

一个长度对应多个规格问题逻辑有问题

w609053988 · 发表于 2019-6-22 11:21

需求要再明确一些，比如重复的长度，规格按照升序排，这样是可以用find和findnext

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