请教老师：查找两组中涂色单元格对应位置的数据

lygyjt

请教老师：在sheet1中，第一组数据（B:S）和第二组数据（T:AK）具有相同的行数及列数。查找第二组涂色单元格在第一组对应位置的数据，并写入“查找结果”的A列。
比如：第二组中涂色的T1，对应第一组的B1，就将B1中的60放入“查找结果”的A列；第二组中涂色的Z18，对应第一组的H18，就将H18中的72放入“查找结果”的A列；

说明：sheet1中，数据有时是01、02类型的。在写入“查找结果”的A列时，要保证原有形式。
A列数据是手动写入，没写完，但正确。（按第二组列的顺序查找的，不是按行） 查找两数组中，涂色单元格对应位置的数据.rar (13.83 KB, 下载次数: 3)

2020-8-15 17:01 上传

点击文件名下载附件

pjiang

这种求助，大佬们不屑做，让我来吧，但是有三个疑问：
1、涂色单元格有两种颜色，都要找？
2、两组数据在同一个工作表，感觉放两个工作表好？
3、同一行有多个涂色单元格，查找出来怎么放有要求？都放在A列？

lygyjt

pjiang 发表于 2020-8-16 07:03
这种求助，大佬们不屑做，让我来吧，但是有三个疑问：
1、涂色单元格有两种颜色，都要找？
2、两组数据在 ...

谢谢pjiang老师的指点！解开了，请见如下：
Sub demo()
    Set sht = Sheet2
    sht.Columns(1).ClearContents
    r = 1
    Sheet1.Select
    lst = [a1].End(xlDown).Row
    For j = 20 To 37
        For i = 1 To lst
            If Cells(i, j).Interior.Color <> 16777215 Then
                sht.Cells(r, 1).Formula = Cells(i, j - 18).Text
                r = r + 1
            End If
        Next
    Next
End Sub