
VBA
=INDIRECT(A2&360问答!BB45) 然后往下拉填充就行啦。 非要VBA的话,我之前写了个宏,贴给你参考下: Sub 提取数据() Dim i% With Sheets(汇总表) For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row .Cells(i, 2) = Sheets(i - 1).Range(BB45) Next End WithEnd Sub不过这个宏是按A列列出的工作表顺序来取数据的,如果A列的工作表名和实际顺序不一致,可能需要再调整代码。 话说你那边传不了文件是吧?没事,我可以按你说的图片结构来写个示例代码,你看看能不能用。 顺便说一声,之前我上传的附件好像失效了,不好意思哈,你直接看代码应该也能搞定。Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号