|
楼主 |
发表于 2019-11-10 15:23
|
显示全部楼层
- Sub 调用数据表列对应值()
- Dim arr, brr, crr(), r, rr, i%, ii%
- arr = Sheets("数据").Range("a3:E" & Sheets("数据").Range("a65536").End(3).Row)
- r = UBound(arr)
- brr = Sheets("表格").Range("a4:c" & Range("a65536").End(3).Row)
- rr = UBound(brr)
- ReDim crr(1 To rr, 1 To 1)
- For i = 1 To r
- For ii = 1 To rr
-
- If arr(i, 2) = "是" And InStr(1, brr(ii, 1), arr(i, 1)) > 0 Then
- crr(ii, 1) = arr(i, 2)
- Rows(ii + 3).Interior.ColorIndex = -4142
- ElseIf arr(i, 2) = "否" And InStr(1, arr(i, 1), brr(ii, 1)) > 0 Then
- crr(ii, 1) = arr(i, 2)
- Rows(ii + 3).Interior.ColorIndex = 3
- End If
-
- Next
- Next
- [c4].Resize(ii - 1, 1) = crr
- End Sub
复制代码
符合条件.zip
(13.62 KB, 下载次数: 6)
谢谢各位,自己琢磨了好几天终于满足了 |
|