如何使用值/格式将列从一张表复制到新表中的另一个空列

Question

我正在尝试将工作表“作业”中的 8 列（C18:J167 - 包含一些合并的单元格）复制到下一个空列（从工作表“生产力周刊”中的 B4 开始。下面是我的代码。但是，问题我正面临着；

1. 它从 B27154 行开始粘贴
2. 它只粘贴值（不是格式）

3. 下次我运行宏时，它会将复制的信息放在相同的单元格中，而不是下一列。 （所以第一次将粘贴在 B:K 列中，下一次将粘贴在 L:S 列中）

   子复制列（）

   Dim lastrow As Long
   Dim LastColumn As Long
   
   With Sheets("Productivity Weekly")
       lastrow = Cells(Rows.Count, 1).End(xlUp).Row
      LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
   End With
   
   
   Sheets("Assignments").Range("C18:j167").Copy
   Sheets("Productivity Weekly").Range("b" & LastColumn + 1 & lastrow + 1).PasteSpecial Paste:=xlPasteValues
   
   Application.CutCopyMode = False
   Application.EnableEvents = True
   
   End Sub
   

我敢肯定，我错过了一些简单的事情……要么咖啡太多，要么不够。

Answer 1

sub sheet_1

Sheets("Assignments").Range("C18:j167").Copy

sheets.add

sheet2.range("a1").select

activesheet.paste
Sheets("Assignments").Range("C18:j167").clearcontents

end sub