excel - 复制所有行,粘贴到另一个工作表交替行与目标工作表上的现有数据)
问题描述
我希望将值从 ws1 复制/粘贴到 ws2
具体来说,要从工作表 #1 到工作表 #2 复制 2 列数据的范围,并粘贴在同一列中的交替单元格中。
例子:
Worksheet 1 (from)
Col AM Col AN
Row 25 TEMP01 10001
Row 26 TEMP02 20002
Worksheet 2 (to)
Col A
Row 3 TEMP01
Row 4 10001
Row 5 TEMP02
Row 6 20002
我只是想将一列粘贴到交替的行中,但无济于事。收到一个
“对象变量或未设置块变量”
错误。
Sub Alternate()
Dim wsFrom As Worksheet
Dim wsTo As Worksheet
Dim LR As Long
Dim i As Long
Dim n As Long
With wsFrom
LR = wsFrom.Range("AM" & .Rows.count).End(xlUp).Row
n = 3
For i = 2 To LR
wsFrom.Range("AM" & i).Copy
wsTo.Range("A" & n).PasteSpecial xlPasteValues
n = n + 2
Next i
End With
End Sub
解决方案
你需要类似的东西:
Set wsFrom = Sheets("WS1")
Set wsTo = Sheets("WS2")
之前:
With wsFrom
为了定义工作表对象。
您还需要:
wsFrom.Range("AN" & i).Copy
wsTo.Range("A" & n + 1).PasteSpecial xlPasteValues
前:
n = n + 2
为了复制备用值。最后,循环从第 2 行开始,您为 wsFrom 提供的数据从第 25 行开始。
推荐阅读
- powershell - 通过 Powershell 使用 -- 参数运行批处理填充
- c++ - 我可以期待多线程的“现实世界”性能改进是什么?
- python - 如何区分蓝色(圆形)和其他(任意方向的矩形/多边形)类型的轮廓
- javascript - Stripe Checkout 会话将优惠券应用于一次性费用而不是订阅
- f# - 具有类型约束的泛型类上的 F# 模式匹配
- javascript - 反应:删除事件侦听器“beforeunload”不起作用
- xml - 使用 vCloud Director API“createVm”创建独立 VM
- go - 如何处理服务器上客户端的断开连接
- typescript - 我可以在 vue.js(使用打字稿)的路由器链接路径中添加变量(来自 getter 的值)吗?
- join - 在 SAP HANA 中使用联接时如何使用结果缓存?