怎么在EXCEL中随给定条件引用另一个工作薄中的数据 5
例如我在C盘中分别创建数个EXCLE文件,分别命名A、B、C、D、E、F、G、……,然后在EXCLE表格“英文字母”的第一列提取这些文件名称,在第二列引用这批文件的数据,...
例如我在C盘中分别创建数个EXCLE文件,分别命名A、B、C、D、E、F、G、……,然后在EXCLE表格“英文字母”的第一列提取这些文件名称,在第二列引用这批文件的数据,怎么弄。最终效果是:我在C盘中建一个新文件,那么自动在EXCLE表格“英文字母”的第一列出现新文件名,第二列引用相应的数据。
展开
1个回答
展开全部
很简单啊,先将条件和结果列写下来,然后后函数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
根据你的补充问题,要用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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询