将公式拖动到下一个空白列并粘贴上一列的值

Question

我希望使用宏将公式从结束列拖动到下一个空白列，然后将值粘贴到上一列。

例如，第V列首先包含公式。我想然后将这些公式拖到列W（空白列）和第V列中的粘贴值，但我想以一种方式编写代码，当再次使用宏时，现在在列W中的公式将是拖入X列，然后将其值粘贴到X列中。

这是我到目前为止所得到的：

Sub RollFile()
Columns("V3:V114").Select
Selection.AutoFill Destination:=Columns("V3:W114"), Type:=xlFillDefault
Columns("V3:V114").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Range("W2").Select
End Sub

任何帮助都会很棒。

Answer 1

我建议使用Range.Cells属性 - https://msdn.microsoft.com/en-us/vba/excel-vba/articles/range-cells-property-excel

基本上，代码中的Columns("V3:V114")将替换为

之类的内容

Range(Cells(3, 22), Cells(114, 22))

现在，您可以使用变量而不是数字来使用循环进行迭代。