Excel 带偏移量的VBA宏

我正在尝试为我每天工作时使用的工作表创建一个简单的宏

基本上是关于：

工作表1单元格A2:A11中有值，这些值需要复制粘贴到工作表2中，每天以偏移量粘贴到下一个自由列

到目前为止，我得到的是一个偏移量的复制粘贴…但我不知道如何说下一个空闲列应该发生偏移量

Dim rng As范围
将ws设置为工作表
范围（“A2:A11”）。选择
选择，复制
图纸（“图纸2”）。选择
如果rng不算什么，那么
'如果未找到任何内容-搜索最后一个非空列
设置rng=ws.Range（“2:2”）.Find（What:=“*”，LookAt:=xlother，MatchCase:=False，SearchOrder:=xlByColumns，SearchDirection:=xlPrevious）
如果rng不算什么，那么
设置rng=rng偏移量（，1）
活动表。粘贴
如果结束

如果我理解正确，请尝试使用此代码而不是所有当前代码

Range("A2:A11").Copy Sheets("Sheet2").Cells(2, Columns.Count).End(xlToLeft).Offset(, 1)

Set rng=rng.End（xlToRight）.Offset（0,1）

---

您可以一直向右走，然后在下一个空闲列中再走一个。

如果在测试之前没有设置rng，则看起来您缺少一个结束。@Jenni发布了您的其余代码，当前代码无法运行