Question

我有一个固定的单元格范围A1：A9，我想每天复制并使用宏添加到趋势表。如果复制到表格没有标题行并且纯粹是数据，那么您可以将其区域称为C1：M9。

当宏运行时，它会在第一次运行时将A1：A9中的数据复制到C1：C9，然后第二天复制D1：D9，然后是第二天E1：E9等等。

任何人都可以帮助我理解我需要使用的代码吗？

字面意思是我第一次做VBA和一些新手的一周。

Answer 1

困难的部分是确定复制/粘贴的下一个可用列。我们可以从工作表中的最后一列开始，然后向后循环到列 A

Sub Paulob()
    Dim N As Long, i As Long
    Dim wf As WorksheetFunction
    Set wf = Application.WorksheetFunction

    For i = Columns.Count To 1 Step -1
        Set r = Range(Cells(1, i), Cells(9, i))
        If wf.CountA(r) > 0 Then
            Exit For
        End If
    Next i

    If i < 3 Then
        N = 3
    Else
        N = i + 1
    End If

    Range("A1:A9").Copy Cells(1, N)
End Sub

我想将固定范围的单元格复制到具有更改列引用的表中

1 个答案: