EXCEL同时满足两个条件,查找四个工作表的数据,并引用到另一个工作表中,如何写入函数公式? 10
工作表“概率”中,学校和录取批次是筛选项(绿色区域),录取专业(灰色区域)根据这两个条件,调用“文史一批”、“文史二批”、“理工一批”、“理工二批”相应数据,要把所有专业...
工作表“概率”中,学校和录取批次是筛选项(绿色区域),录取专业(灰色区域)根据这两个条件,调用“文史一批”、“文史二批”、“理工一批”、“理工二批”相应数据,要把所有专业引用过来(专业行数不固定)。因数据量较大,不考虑作合并单元格的辅助列。跪求高手指导。谢谢!
展开
2个回答
展开全部
可以用宏,在相应工作表查找相应的数据
Sub hong()
' 根据指定的大学,和录取批次寻找相应的sheet页内容
Dim School, sht_name, rowss
'学校名称
School = Sheets("概率").Range("B2").Value
'录取批次,要跟sheet名一致
sht_name = Sheets("概率").Range("J2").Value
'确定循环次数
rowsend = Sheets(sht_name).Range("F65565").End(xlUp).Row '表格结束行
rowss = 6 '概率表起始行数
For i = 6 To rowsend
If Sheets(sht_name).Range("B" & i).Value = School Then
Sheets("概率").Range("B" & rowss).Value = Sheets(sht_name).Range("F" & i).Value
Sheets("概率").Range("O" & rowss).Value = Sheets(sht_name).Range("G" & i).Value
rowss = rowss + 1
Do While Sheets(sht_name).Range("B" & i + 1).Value = ""
Sheets("概率").Range("B" & rowss).Value = Sheets(sht_name).Range("F" & i + 1).Value
Sheets("概率").Range("O" & rowss).Value = Sheets(sht_name).Range("G" & i + 1).Value
rowss = rowss + 1
i = i + 1
Loop
End If
Next
End Sub
Sub hong()
' 根据指定的大学,和录取批次寻找相应的sheet页内容
Dim School, sht_name, rowss
'学校名称
School = Sheets("概率").Range("B2").Value
'录取批次,要跟sheet名一致
sht_name = Sheets("概率").Range("J2").Value
'确定循环次数
rowsend = Sheets(sht_name).Range("F65565").End(xlUp).Row '表格结束行
rowss = 6 '概率表起始行数
For i = 6 To rowsend
If Sheets(sht_name).Range("B" & i).Value = School Then
Sheets("概率").Range("B" & rowss).Value = Sheets(sht_name).Range("F" & i).Value
Sheets("概率").Range("O" & rowss).Value = Sheets(sht_name).Range("G" & i).Value
rowss = rowss + 1
Do While Sheets(sht_name).Range("B" & i + 1).Value = ""
Sheets("概率").Range("B" & rowss).Value = Sheets(sht_name).Range("F" & i + 1).Value
Sheets("概率").Range("O" & rowss).Value = Sheets(sht_name).Range("G" & i + 1).Value
rowss = rowss + 1
i = i + 1
Loop
End If
Next
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询