UC知道Excel函数运用
来源：百度知道 编辑：UC知道 时间：2024/05/30 10:21:53
问题：在一个工作簿中有10各表：成绩1～成绩10，现在我要在成绩10的A2单元格得到以下结果，在成绩1～成绩9表中的A1～A30如果有等于成绩10的A1则相应的复制成绩1～成绩9的偏移5格的值。
即：如果成绩10!A1=（成绩1～成绩9）的（A1～A50）则返回相应（成绩1～成绩9）的A6的值。
如果可以请分别用函数和VBA求解。。
不好意思，可能我没说清楚，我的意思是要成绩10的A1单元格匹配（成绩1～成绩9）的（A1～A50）中的一个。。
问题补充：我的目的是要将成绩1～成绩9的（A1～A50）中的一个匹配成绩10中的A1然后复制成绩1～成绩9中匹配记录的右偏移5各单元格中的值。
即：如果成绩10!A1=（成绩1～成绩9）的（A1～A50）则返回相应（成绩1～成绩9）的A6的值。
如果可以请分别用函数和VBA求解。。
不好意思，可能我没说清楚，我的意思是要成绩10的A1单元格匹配（成绩1～成绩9）的（A1～A50）中的一个。。
问题补充：我的目的是要将成绩1～成绩9的（A1～A50）中的一个匹配成绩10中的A1然后复制成绩1～成绩9中匹配记录的右偏移5各单元格中的值。
函数不会，vba写了一个，看看是不是你要的，测试通过
只要a10最后一个标签页就可以了
Private Sub CommandButton1_Click()
sheet_count = Sheets.Count '全部标签数量
For i = 1 To Sheets(sheet_count).UsedRange.Rows.Count '假设a10是最后一个标签页
check_next:
check_value = Sheets(sheet_count).Cells(i, 1) '要查找的值
For k = 1 To sheet_count - 1 '循环查找a10前面的标签页
For j = 1 To Sheets(k).UsedRange.Rows.Count
find_value = Sheets(k).Cells(j, 1)
If find_value = check_value Then '如果找到了
Sheets(sheet_count).Cells(i, 2) = Sheets(k).Cells(j, 6)
'GoTo check_next '没有break用goto替代
End If
Next
Next
Next
End Sub
首先你的假设不成立，成绩10!A1为单个单元格不可能等于成绩1～成绩9）的（A1～A50），把表发过来看一下才好帮你求解
你问这个问题真复杂呀
把分给我否则我就诅咒你，哈哈哈
这个问题真复杂呀