excel - 为什么复制和粘贴错误的行
问题描述
VBA 新手
我正在尝试遍历一个表并复制包含名称的行。当我运行代码时,输出是我想要的行下方的行。
Sub tblcopypast()
Dim Name As String
Dim tbl As ListObject
Dim i As Integer
Dim lastrow As Integer
Set tbl = ActiveSheet.ListObjects("Table1")
Name = ActiveSheet.Range("E1").Value
lastrow = tbl.ListRows.Count
For i = 1 To lastrow
If tbl.Range(i, 1) = Name Then
tbl.ListRows(i).Range.Copy
ActiveSheet.Range("E5").PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
End If
Next
End Sub
解决方案
推荐阅读
- amazon-web-services - Pyspark 使用 SSE-S3 而不是 SSE-KMS 写入加密存储桶
- terraform - 创建了公钥和私钥但使用Putty无法登录VM,如何克服这个问题?我要复制这些密钥并保存为 .ppk 文件?
- android - 使用 Dagger2 中的命名注入具有不同字段的同一类的两个对象
- html - 当使用 ::after 伪元素作为底部边框时,它出现在 div 中的每个列表项之后
- html - 如何在活动选项卡更改时为其设置动画
- html - 在 Div 中计算 vaules 并在 Span 中显示 recults
- react-admin - NumberInput 的千位分隔符
- components - 在不显示侧边栏和标题的情况下无法显示错误 404 组件
- python - Python (Numpy Array) - 逐像素翻转图像
- javascript - Main.js 文件在角度 12 中太大