Question

我有一个电子表格，并且有一个宏，每月通过移动一些并清除一些数据来重置数据，这些宏也删除了那些特定列中的我的autosums。我需要重新考虑这些总和，我相信自动填充功能是最好的方法。但是，我有很多不同的工作表，而且autosum永远不会在同一行。以下是我到目前为止的宏观。旁边带箭头的行是它调试的地方。上面的宏将我带到我需要自动填充的正确单元格中，我只是不确定如何使该自动填充宏不适用于某一行并且是相对的。非常感谢任何帮助。

  Sub Reset_Each_Spare()
      Range("E16:F5000").Select
      Selection.Copy
      Range("P16").Select
      Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
      Range("I16:J5000").Select
      Selection.Copy
      Range("R16").Select
      Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
      Range("L16:M5000").Select
      Selection.Copy
      Range("T16").Select
      Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
      Application.CutCopyMode = False
      Range("D16:D5000").Select
      Selection.ClearContents
      Range("H16:H5000").Select
      Selection.ClearContents
      Range("K16:K5000").Select
      Selection.ClearContents
      Cells.Find(What:="Total", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False).Activate
      ActiveCell.Offset(0, 1).Select
      >>>Selection.AutoFill Destination:=Range("C:U"), Type:=xlFillDefault
      Range("A1").Select

End Sub

Answer 1

我回答了自己的问题，感谢任何花时间看我问题的人。我刚刚更换了以＆gt;＆gt;＆gt;标记的上面一行使用以下代码行。

  Selection.AutoFill Destination:=ActiveCell.Range("A1:S1"), Type:=xlFillDefault

使用Excel中的数据自动填充到最后一列的宏？

1 个答案: