跨表匹配对应内容的行数

zllyyz · 发表于 2024-1-14 11:59

本帖最后由 zllyyz 于 2024-1-14 22:22 编辑

如题，详细如下图
sheet2（3、4、5、6......）的表名匹配 sheet1的相应内容（子表表名）后将结果存入变量中，然后将变量结果放置在 sheet2 （3、4、5、6......）的A1单元格

gwjkkkkk · 发表于 2024-1-14 19:47

没看懂，建议模拟一下结果。。。

zllyyz · 发表于 2024-1-14 22:09

gwjkkkkk 发表于 2024-1-14 19:47
没看懂，建议模拟一下结果。。。

图中就是模拟了，sheet2（3、4、5、6......）的表名匹配 sheet1的内容后将结果存入变量中，然后将变量结果放置在 sheet2 （3、4、5、6......）的A1单元格

qline302 · 发表于 2024-1-14 22:10

本帖最后由 qline302 于 2024-1-14 22:13 编辑

试试公式法，操作如下：
1. 按Shift+鼠标：组合选择所需工作表sheet2-sheet(i)
2. 在任意工作表A1位置输入函数：
=MATCH(RIGHT(CELL("filename",A1),LEN(CELL("filename"))-FIND("]",CELL("filename"),1)),Sheet1!B:B,0)
3.按【回车】键，一下就建好了，即便sheet改名也会自动变化。

PS: 如果利用【范围名称】定义该公式，适用性会更强。

zllyyz · 发表于 2024-1-14 22:17

本帖最后由 zllyyz 于 2024-1-14 22:18 编辑

qline302 发表于 2024-1-14 22:10
试试公式法，操作如下：
1. 按Shift+鼠标：组合选择所需工作表sheet2-sheet(i)
2. 在任意工作表A1位置输 ...

公式之前已经在VBA中做好了，就想知道除了使用EXCEL的函数外 VBA怎么实现这功能

ykcbf1100 · 发表于 2024-1-15 09:09

参与一下。。。

Sub ykcbf() '//2024.1.15
Set sh = ThisWorkbook.Sheets("Sheet1")
On Error Resume Next
With sh
r = .Cells(Rows.Count, 2).End(3).Row
arr = .Range("b1:b" & r)
End With
For i = 6 To UBound(arr)
fn = arr(i, 1)
Sheets(fn).[a1] = i
Next
MsgBox "OK！"
End Sub

复制代码

ykcbf1100 · 发表于 2024-1-15 09:10

附件供参考。。。

		自动登录	找回密码
密码			免费注册

[求助] 跨表匹配对应内容的行数

评分