右键点击工作表标签,选择查看代码。 然后在VBE界面点击插入-模块,把代码粘贴进去,按ALT+F8运行宏就搞定了。 附件里有示例。 代码如下: Sub 数据提取() For i = 2 To Worksheets.Count Sheets(1).Cells(Sheets(1).End(3).Row + 1, 1) = Sheets(i).Cells(...) Sheets(1).Cells(Sheets(1).End(3).Row + 1, 2) = Sheets(i).Cells(...) Next End Sub
Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号