|
请教大神,“计算”表中B列的数值与“数据”表中C列的数值是对应关系,想把“计算”表中B列的数组转换成“数据”表中G列和J列的集合,值存在“计算”表中C列和D列,VBA应该怎么写?如表中第一行另,外“计算”表B列的数组中有一部分值,在“数据”表中是没有的,不参与计算,求助大神指点!!万分感谢!
- Sub aaa()
- Dim arr, brr, crr, i&, j&, rng As Range
- arr = Sheets(2).Range("b1:b" & Sheets(2).[b65536].End(3).Row)
- ReDim brr(1 To UBound(arr), 1 To 2)
- For i = 1 To UBound(arr)
- crr = Split(arr(i, 1), "-")
- For j = 0 To UBound(crr)
- Set rng = Sheets(1).Columns(3).Find(crr(j), lookat:=xlWhole)
- If Not rng Is Nothing Then
- brr(i, 1) = brr(i, 1) & rng.Offset(, 4)
- brr(i, 2) = brr(i, 2) & rng.Offset(, 7)
- End If
- Next j
- Next i
- Sheets(2).[c1].Resize(UBound(brr), 2) = brr
- End Sub
复制代码
|
|