Question

Excel引用数据Excel中同一工作簿，不同表格中如何引用数据

Excel引用数据Excel中同一工作簿，不同表格中如何引用数据
如：当表二中A1输入“中国”时，则表一中A1为“中国”那行的B1、C1、D1数据分别引入表二的B1、C1、D1中。(注：表一中A1为很多不同国家名称，为“中国”的有很多项，会提取到很多行数据，数据需要分行列出）谢谢给位大神！

Answer 1

1、sheet1中是这样的

2、sheet2中

B1输入的公式是

=INDEX(Sheet1!$B:$B,SMALL(IF(Sheet1!$A:$A=$A$1,ROW(Sheet1!$A:$A),4^8),ROW(1:1)))&""

输完后，按Ctrl+shift+enter，进行数组输入。

C1的公式

=INDEX(Sheet1!$C:$C,SMALL(IF(Sheet1!$A:$A=$A$1,ROW(Sheet1!$A:$A),4^8),ROW(1:1)))&""

D1的公式

=INDEX(Sheet1!$D:$D,SMALL(IF(Sheet1!$A:$A=$A$1,ROW(Sheet1!$A:$A),4^8),ROW(1:1)))&""

B2、B3、等等都是从B1下拉。

Answer 2

在表一中选定A1至D1年有单元格 名称框中输入中国 再在表二A1中直接输入=中国 再拖动填充柄填充到D1就好

追问

这样每一项都要设置，很麻烦啊~有很多项需要提取的~

Answer 3

为“中国”的有很多项，会提取到很多行数据，数据需要分行列出……

需要用VBA了

追问

需要怎么处理？麻烦说详细点~

追答

需要写代码，今天应该能写出来，不过写出来了可能只适合你的例子，不适合其他情况。

需要知道表一和表二的名字

代码如下（放在表二里，工作表标签右键选择代码）

Private Sub Worksheet_Change(ByVal Target As Range)

Dim RA As String
Dim RB As String

RA = Sheets("sheet1").UsedRange.Item(Sheets("sheet1").UsedRange.Count).Row
RB = 0

If Target.Address = "$A$1" Then

Application.ScreenUpdating = False

Sheets("sheet2").Columns("B:D").ClearContents

For i = 1 To RA

If Sheets("sheet1").Cells(i, 1) = Target.Value Then
RB = RB + 1
For c = 2 To 4

Sheets("sheet2").Cells(RB, c) = Sheets("sheet1").Cells(i, c)

Next

End If

Next

Application.ScreenUpdating = True

End If

End Sub

需要把引号里的sheet1和sheet2改成你表一和表二的名字

亲测可用，有附件为证

Answer 4

直接用等号不就行了

Answer 5

如A1输入1-1，B1输入公式：
＝vlookup(a1,备用!A:B,2,0)
备用表中，A列是1-1这样的，B列是145这样的对应数据。

Answer 6

自动变出来的数只是显示效果，把它复制到Word文档中，再从Word中复制过来就变成实实在在的数了。