excel如何提取所需关键字所在行?

Posted 2023-05-01

excel如何从一个文件的多个表中提取所需关键字所在行的所有信息，并生成单独一个表？如下图，我想提取所有“止动螺栓”所在行的信息，该如何操作？

如果是2020版office，提供一个筛选函数，如果包含多条记录都可筛选出，公式只需放在左上角，只要注意可能需要占用的其他单元格是空白即可，否则会显示#SPILL! 错误
假设需要的数据C-H列（作为查询表，不要用合并单元格，否则只显示第一行，因为被合并的行数据内容是空白，不会被查到）,另外如果跨表不要忘了引用前面的表名（例如“表!D:D”）
=FILTER(C:H,D:D="止动螺栓","未找到")追问

不明白，能有图片讲解就更好了

追答

1、确定msoffice2020版
2、确定数据在C-H列
3、确定要找的止动螺栓在D列
4、在一个空白区域左上角输入公式，空白至少七列
如果公式出现#SPILL! ，说明显示范围内有其他内容，删除即可

参考技术A match函数了解下，可以实现你想要的行数
如果是在C列
=match("止动螺栓",C1:C100,0)

delphi 更改stringgrid单元格所在行的字体颜色

因为某种需要，只能用stringgrid，用于显示数据库中的数据，当某单元格的值在数据库中存在时候如何更改此单元格所在行的字体颜色？

参考技术A 由于TStringGrid没有并没有提供类似的方法.所以只能自己画了.
以下代码 是假定 有一个名称为 Form2 的窗体 上面放着 一个名称为 sGrid的TStringGrid:
以下代码实现了这个StringGrid的OnDrawCell事件

procedure TForm2.sGridDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
TheGrid: TStringGrid; CellText: string;
begin
if not (ARow = 1) then Exit; //如果不满足条件，条件由你自行确定
TheGrid := Sender as TStringGrid; //强制类型转换Sender,可以让多个StringGrid来使用这个函数

with TheGrid.Canvas do
begin
//如果单元格被中了则绘制高亮否则,则绘制指定的颜色
if gdSelected in State then
begin
Brush.Color := clHighlight; Font.Color := clHighlightText;
end
else
begin
Brush.Color := clWindow; Font.Color := clRed; //这里是你需要设置的颜色,暂时这只为红色
end;

if gdFixed in State then
begin
Brush.Color := clBtnFace;
end;

FillRect(Rect); //代替原始内容,并绘制背景

CellText := TheGrid.Rows[ARow][ACol]; //获取单元格文字
Inc(Rect.Left,2); //让文本区域左缩进2像素
//利用Windows API函数绘制文本
DrawText(Handle,PChar(CellText),Length(CellText),Rect,
DT_LEFT or DT_SINGLELINE or DT_VCENTER or DT_END_ELLIPSIS);
end;
end;本回答被提问者和网友采纳