时间戳

首页 > 解决方案 > VBA 无法在所有工作表中执行

vba - VBA 无法在所有工作表中执行

问题描述

请帮助，如果代码考虑“范围到 ActivateSheet.Paste”，则此代码仅在一个工作表中运行。我想对所有工作表运行它，但是当我在下面输入代码时，出现了一个错误“Next without For”。感谢任何见解:)

暗淡为工作表

    For Each ws In ThisWorkbook.Worksheets
        ws.Activate
    
    Range("G25").Select
    Selection.End(xlDown).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("E25").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(0, 2).Range("A1:E1").Select
    Range(Selection, Selection.End(xlUp)).Select
    ActiveCell.Activate
    ActiveSheet.Paste

下一个 ws 结束子

标签： vba

解决方案

只需找出解决方案。删除 Application.CutCopyMode = False 和 ActiveCell.Activate，放置 E

推荐阅读