Question

如何在excel 表中引用多个工作簿中同一位置的单元格内容

Answer 1

假如在一个工作表中的Sheet2的B2中的内容是“大”；Sheet3的B2中的内容是“家”；Sheet4的B2中的内容是“早”；Sheet5的B2中的内容是“上”；Sheet6的B2中的内容是“好”。根据你的要求在Sheet1的B2中将上述5个表的内容连在一起。

1. 在Sheet1的B2中输入公式：

2. 公式是：=Sheet2!B2&Sheet3!B2&Sheet4!B2&Sheet5!B2&Sheet6!B2

3. 公式结果就是：大家早上好。

看看这个是不是你想要的结果。

Answer 2

Sub test()

Dim arr, brr(), i, wb As Object '定义变量

arr = Range("A2:A" & [A65536].End(3).Row) '单元格区域定义为数组

For i = 1 To UBound(arr) '循环

Set wb = GetObject(ActiveWorkbook.Path & "\" & arr(i, 1) & ".xls") '创建object，相当于打开工作簿

ReDim Preserve brr(1 To UBound(arr), 1 To 1) '重新定义数据大小

brr(i, 1) = wb.Sheets("采集表").Range("c16") '取得所需要的数值

wb.Close False '关闭工作簿，不保存

Next

Range("B2").Resize(UBound(brr), 1) = brr '将数组返回给单元格区域

End Sub

Answer 3

可以考虑index()................