2022-10-22 18:33来源:m.sf1369.com作者:宇宇
F2: =INDEX(A:A,SMALL(IF($B$2:$B$100=甲,ROW($2:$100),6^6),ROW(A1)))&
同时按下CTRL+SHIFT+Enter三键,使数组公式出现{ },公式下拉到空值
K2: =INDEX(A:A,SMALL(IF($A$2:$A$100=a,ROW($2:$100),6^6),ROW(A1)))&
同时按下CTRL+SHIFT+Enter三键,使数组公式出现{ },公式下拉到空值
在表格打开状态按ALT+F11,插入----模块,复制以下代码进去,在关掉代码窗口。
Function abc(a As Range, b As Range, c As String)
Dim t As String
'如果a与b的区域大小不同,就显示“错误”
If a.Rows.Count <> b.Rows.Count Then abc = 错误: Exit Function
'在区域a是循环
For i = 1 To a.Rows.Count
'如果在a中找到与c相同的值,就把同一行中的b的内容提取出来,存入变量t中。
If a.Cells(i, 1) = c Then t = t & & b.Cells(i, 1)
Next
'将变量的值赋给自定义函数
abc = t
End FunctionD2单元格=abc($A$2:$A$5000,$B$2:$B$5000,C2)
打开的Excel表格中,我们可以看到表格中的数据内容,表格上方有诸多的功能选项;
如果我们要想将表格中的数据内容的格式清除为原始样式,重新编排格式,我们可以用鼠标来选中表格中的全部内容
选好内容后,我们点击表格上方的工作栏中的“开始”,此时我们可以看到在“开始”下方出现诸多二级选项;
在“开始”下方出现诸多二级选项中,我们能够找到“清除”功能选项,我们点击该选项
此时,在“清除”功能选项下方会出现选项列表,我们找到并选择“清除格式”选项;
这时我们可以发现表格中的内容已经清除掉了,这时我们可以根据自己的需要重新编排内容格式