Question

我正在尝试按颜色搜索单元格并逐个选择它们来复制它们的值。

到目前为止，我有这个。但我只是用这个

崩溃了

Sub searchcol（）

Range("O3:O2555").Select
With Application.FindFormat.Interior
    .PatternColorIndex = 6
 End With
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, _
SearchFormat:=True).Select

＆＃39;对此范围内的每个单元格执行复制操作结束子

Answer 1

这将转到每个单元格并检查颜色，如果它等于65535（黄色），它将在立即窗口中打印该值。您可以修改代码以将值放在其他位置。希望这会有所帮助。

Range("O3").Select
Do While ActiveCell.Value <> ""
    If ActiveCell.Interior.Color = 65535 Then
        Debug.Print ActiveCell.Value
    End If
    ActiveCell.Offset(1, 0).Select
Loop

按颜色搜索范围内的单元格并选择它

1 个答案: