将一列中的值复制到另一个工作表中的另一列

Question

我创建了一个按钮，可将一个工作表中的所有单元格复制到新工作表中。 但是，我希望第一个工作表的“总量”（H）列进入新工作表的“上一个数量”（G）列。 这样，我希望当前数量（F）列清除值。 对于每个新工作表，列的长度可能会增加，因此我无法设置特定范围。

ActiveSheet.Range（“ F”）。ClearContents ??

我所做的任何事情都有复制粘贴命令，我更喜欢直接方法。 非常感谢！！！

Answer 1

这样的事情行吗？

Columns("F:F").Select

Selection.ClearContents

Answer 2

要选择F列中的整个列，请使用

ActiveSheet.Range("F1").EntireColumn.ClearContents

您还可以将其扩展到EntireRow等。

---

编辑 -现在我很清楚您的要求。

如果您已经有一个将整个工作表复制到另一个工作表的按钮，那么我假定它也复制了所有原始数据。 我不知道您的工作表上到底是什么，但是下面的代码应该向您展示如何复制和粘贴整个列。

假设有两列，G和H。G的第一行被命名为“ Previous”，H的第一行被命名为“ Current”。 以下代码将G列替换为H列，同时保留第一行中的列名：

Sub Test()

    'Clear Column G:
    Range(Cells(2, 7), Cells(Rows.Count, 7)).ClearContents

    'Copy & Paste H to G:
    Range(Cells(2, 8), Cells(Rows.Count, 8)).Copy
    Range("G2").Select
    ActiveSheet.Paste

    'Clear Column H:
    Range(Cells(2, 8), Cells(Rows.Count, 8)).ClearContents

End Sub

这是复制和粘贴。 如果没有需要保留的公式，则只需剪切和粘贴即可解决所有代码：

Sub Test()
    Range(Cells(2, 8), Cells(Rows.Count, 8)).Cut
    Range("G2").Select
    ActiveSheet.Paste
End Sub