Question

此过程用于质量控制目的。我有一个电子表格，根据它们的值和我们现有的验证规则突出显示某些错误的单元格。我想知道是否有办法将每个单元格的列名称返回到每行的A列？因此，例如，如果D2，F2和G2出错，它会将所有这些列标题放在A2中以指定究竟是什么错误。我知道尝试使用单元格颜色自动化会变得有点复杂，而且我对VBA没有经验，我认为这需要它。这可能吗，如果是这样，那么适当的路线是什么？数据从列A到列BS运行，行号可能不同，因此如果它可以运行到第1000行，那将是很好的。附件是我正在使用的数据。

The red means something is wrong in that row, and the orange cell is the color indicating that it is a wrong value

Answer 1

是的，有可能做到。这里有一些代码片段，我将它们组合在一起以帮助您入门。

Lastrow = Cells(Rows.count, "A").End(xlUp).Row 'Get last row
With ActiveSheet
Lastcol = .Cells(1, .Columns.count).End(xlToLeft).Column 'Get last col
End With 

 For x = 1 To Lastcol 'Iterate Col    
        For i = 1 To Lastrow 'Iterate Row   
            'if red....
            If Cells(i, x).Selection.Interior.Color = 255 then
               'Move name to Cell A and append off of old name(s).
               Cells(i, "A") = Cells(i, "A") & ", " & Cells(i, x)
            End If    
        Next i 'next row
    Next x 'next col

返回有色单元格的列标题

1 个答案: