怎么在EXCEL中随给定条件引用另一个工作薄中的数据 5

例如我在C盘中分别创建数个EXCLE文件,分别命名A、B、C、D、E、F、G、……,然后在EXCLE表格“英文字母”的第一列提取这些文件名称,在第二列引用这批文件的数据,... 例如我在C盘中分别创建数个EXCLE文件,分别命名A、B、C、D、E、F、G、……,然后在EXCLE表格“英文字母”的第一列提取这些文件名称,在第二列引用这批文件的数据,怎么弄。最终效果是:我在C盘中建一个新文件,那么自动在EXCLE表格“英文字母”的第一列出现新文件名,第二列引用相应的数据。 展开
 我来答
1780038155
2011-10-25 · TA获得超过4268个赞
知道大有可为答主
回答量:1677
采纳率:33%
帮助的人:1426万
展开全部
很简单啊,先将条件和结果列写下来,然后后函数if来判断或者加vlookup来辅助判断,找出另一个工作薄对应的单元格,加以引用就可以了!
根据你的补充问题,要用VBA代码才好实现:
假设如你所述C盘有A~G等文件,假如引用A~G等文件的sheet1.range("A1")单元格,
出现结果的工作簿也在工作表sheet1中进行,那么在出现结果的工作薄VBE窗口中sheet1中复制以下代码:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim wjm
Dim i As Integer
wjm = Dir("C:\*.xls")
On Error Resume Next
Sheet1.Cells(1, 1) = Left(wjm, Len(wjm) - 4)
For i = 2 To 100
On Error Resume Next
wjm = Dir
Sheet1.Cells(i, 1) = Left(wjm, Len(wjm) - 4)
Next i
For i = 1 To 100
If Sheet1.Cells(i, 1) = "" Then
Exit For
End If
Sheet1.Cells(i, 2) = "='C:\[" & Sheet1.Cells(i, 1) & ".xls]Sheet1'!A1"
Next i
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式