excel表格怎么到一个格

1.excel表格中如何把这样的表格代入到另一个单元格里,只要画圈的那部

=IFERROR(VLOOKUP($A2，表A!$A:$F,MATCH(C$1，表A!$1:$1,0),0），""） 回车；

见图一

2、选中C2，横拉、下拉填充表格内的C、D、E、F列，实际结果：

见图二

对公式的补充说明：

1）此公式在表B中可以横拉、下拉不受限制，同时对标题排列也不受限制，如表B的标题排列与表A不同，其结果也照样是正确的；

见图三

2）表B和表A对应的标题文字也就是表B第一行各单元格中的标题内容应在表A中能找到。

3）上列B表中的“黄红”和“孙悟空”后面内容为空，这是因例表A中未出现，如果实际表格中存在，则会自动填入。

2.如何在excel把多项内容提取到一个格子内

写了个VBA代码如下：（样本文件见附件！）

Sub test()

Dim d As Object, aryA, s As String, aryB

Set d = CreateObject("scripting.dictionary")

For i = 1 To Cells(Rows.Count, 1).End(3).Row

If Cells(i, 1) "" Then

d(Cells(i, 1).Value) = d(Cells(i, 1).Value) & "," & Cells(i, 2)

End If

Next

[d1].Resize(d.Count, 1) = Application.WorksheetFunction.Transpose(d.keys)

aryA = Application.Transpose(d.items)

For i = LBound(aryA) To UBound(aryA)

s = ""

aryB = Split(aryA(i, 1), ",")

For j = LBound(aryB) To UBound(aryB)

If InStr(aryB(j)， "工程师"） >0 Then

s = s & aryB(j) & ","

End If

Next

aryA(i, 1) = Left(s, Len(s) - 1)

Next

[E1].Resize(d.Count, 1) = aryA

End Sub