excel - VBA 中的复制粘贴语法问题 [已编辑]
问题描述
编辑:我在 Excel 2016 上运行(如果该信息有帮助)
目的:
我想将每个参与者的整行A: ___
从一个工作表复制Worksheets("Sheet3")
到另一个工作表Worksheets("Sheet4")
。基于条件"Selected"
(第一栏)
编辑:我在下面修复了这部分
我有一个错误,其中未定义变量ParticipantCol
。而且我不确定其他特定的编码有什么问题。
当前问题
运行时错误“9”。下标超出范围。还请检查我的变量是否正确定义。
我依靠这两个链接作为参考来构建以下语法:
https://www.excelcampus.com/vba/copy-paste-cells-vba-macros/ [从 2016 年开始]
https://www.youtube.com/watch?v=W4swMZe0TEE [自 2021 年起]
Sub CopyPasteIfSelectedThen2021() Dim SelectionStatusCol As Range Dim SelectionStatus As Range Dim PasteCell As Range Set SelectionStatusCol = Worksheets("Sheet2").Range("I2:I23") For Each SelectionStatus In SelectionStatusCol If Worksheets("Sheet2").Range("I2") = "Selected" Then Set PasteCell = Worksheets("Sheet4").Range("A2") Else Set PasteCell = Worksheets("Sheet4").Range("A2").End(xlDown).Offset(1, 0) End If If SelectionStatus = "Selected" Then SelectionStatus.EntireRow.Copy PasteCell Next SelectionStatus End Sub
我尝试了 2021 编码概念,但显示错误。调整为 2016 编码方法后,我仍然遇到问题。而且我不确定在哪里可以找到对 2016 Excel 版本的特定编码的特定参考,我花了第 2 天来尝试解决它。
感谢帮助!
解决方案
推荐阅读
- python - 如何将 tarball 中的视频提取到 3D numpy 数组中?
- python - 在类中存储查询结果
- python - PIL 调整图像大小
- php - 如何在 Laravel 8 中获取集合的实例以在 if 语句中使用?
- java - java.io.WriteAbortedException:写入中止;问题
- .htaccess - 具有动态子域的通配符域
- r - 如何在r中对表中的数据进行分组
- typescript - 在 TypeScript 中为递归映射值的方法定义类型
- python - 状态是重复错误。我正在尝试让我的机器人发布推文,但它不起作用。(Python)
- encoding - 使用 ffmpeg 制作由子文件夹中的帧组成的视频