excel中使用VBA复制目标工作表A10:H10+H列 并保留公式

1. 打开Excel文件，按下Alt + F11打开Visual Basic for Applications（VBA）编辑器。
2. 在VBA编辑器中，插入一个新的模块。右键点击项目资源管理器中的"Microsoft Excel 对象"，选择"插入" -> “模块”。
3. 在模块中，复制粘贴以下函数代码：

————————————————

Sub PasteFormulasToSheets()Dim ws As WorksheetDim sourceSheet As WorksheetDim sourceRange As RangeDim targetRange As Range' 设置源工作表Set sourceSheet = ThisWorkbook.Worksheets("2021.7")#原表' 设置源范围（A10:H10）Set sourceRange = sourceSheet.Range("A10:H10")' 循环遍历除第一个工作表外的其他工作表For Each ws In ThisWorkbook.WorksheetsIf ws.Index <> 1 Then' 设置目标范围（A10:H10）Set targetRange = ws.Range("A10:H10")' 粘贴源范围的公式到目标范围targetRange.Formula = sourceRange.FormulaEnd IfNext ws
End SubSub COPYFormulasToSheets()Dim ws As WorksheetDim sourceSheet As WorksheetDim lastRow As Long' 设置源工作表Set sourceSheet = ThisWorkbook.Worksheets("2021.6")' 获取源列的最后一行lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "H").End(xlUp).Row' 循环遍历除第一个工作表外的其他工作表For Each ws In ThisWorkbook.WorksheetsIf ws.Index <> 1 Then' 粘贴源列的公式到目标工作表的H列ws.Range("H1:H" & lastRow).Formula = sourceSheet.Range("H1:H" & lastRow).FormulaEnd IfNext ws
End Sub

更新一下，直接修改为第二个表

Sub PasteFormulasToSheets()Dim ws As WorksheetDim sourceSheet As WorksheetDim sourceRange As RangeDim targetRange As Range' 设置源工作表（第二个工作表，索引为2）Set sourceSheet = ThisWorkbook.Worksheets(2)' 设置源范围（A10:H10）Set sourceRange = sourceSheet.Range("A10:H10")' 循环遍历除第一个工作表外的其他工作表For Each ws In ThisWorkbook.WorksheetsIf ws.Index <> 1 Then' 设置目标范围（A10:H10）Set targetRange = ws.Range("A10:H10")' 粘贴源范围的公式到目标范围targetRange.Formula = sourceRange.FormulaEnd IfNext ws
End SubSub COPYFormulasToSheets()Dim ws As WorksheetDim sourceSheet As WorksheetDim lastRow As Long' 设置源工作表Set sourceSheet = ThisWorkbook.Worksheets(2)' 获取源列的最后一行lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "H").End(xlUp).Row' 循环遍历除第一个工作表外的其他工作表For Each ws In ThisWorkbook.WorksheetsIf ws.Index <> 1 Then' 粘贴源列的公式到目标工作表的H列ws.Range("H1:H" & lastRow).Formula = sourceSheet.Range("H1:H" & lastRow).FormulaEnd IfNext ws
End Sub

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！