[poli-smen]

Сообщение от modestss

Народ, ваша помощь нужна!
есть 1 столбец в экселе и 2, нужно все значения, которые употребляются в 1 столбце, выделить их во 2 столбце красным цветом.

Пробуй так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Sheet, VA, v: Variant;
  RowCount, i, j: Integer;
begin
  Sheet := Excel.ActiveSheet;
  VA := Sheet.UsedRange.Value;
  RowCount := VarArrayHighBound(VA, 1);
  for i := 1 to RowCount do
  begin
    v := VA[i, 2];
    for j := 1 to RowCount do
    begin
      if VA[j, 1] = v then
      begin
        Sheet.Cells[i, 2].Interior.Color := clRed;
        Break;
      end;
    end;
  end;
end;