
excel
VBASub MergeSheets()Dim ws As WorksheetDim i As LongFor Each ws In ThisWorkbook.Worksheetsws.Cells(1, 1).Formula = "VLOOKUP(B2,Sheet1!A:B,COLUMN(),1)"NextEnd Sub在这个示例程序中,我们首先选取第一个工作表,并将单元格设置为VLOOKUP公式。其中,参数B2表示要查找的值所在列,Sheet1!A:B表示要查找的范围,COLUMN()表示要返回第几列数据,1表示返回值保留原格式。如果需要合并多个工作表,则可以将以上代码复制到一个新文件中,在该文件中添加一个按钮或命令按钮,并设置其事件为“合并工作表”即可实现点击按钮后自动执行合并操作。Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号