首页 文章

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

提问于
浏览 次
0

我有一个电子表格，并有一个宏，每个月通过移动一些并清除一些也删除我的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

结束子

excel excel-vba vba

1 回答

  • 0

    我回答了自己的问题，感谢任何花时间看我问题的人 . 我刚用以下代码行替换了上面标有>>>的行 .

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

相关问题