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

我有一个电子表格，并有一个宏，每月移动一些数据并清除某些数据，这些数据还会删除这些特定列中的autosums。我需要重新输入这些数据，我相信自动填充功能是实现此目的的最佳方式。但是，我有很多不同的工作表，autosum从不在同一行。下面是我迄今为止的宏。带有箭头的行是它调试的地方。刚刚在上面的宏让我到正确的单元格，我需要自动填充从我只是不知道如何使该自动填充宏不是为了某一行和是相对的。任何帮助深表感谢。使用Excel中的数据自动填充到最后一列的宏？

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

末次

来源

2014-09-10 Jamie Walker

我回答我自己的问题的家伙，看看我的问题感谢任何人谁花时间。我用下面的代码行代替了上面标有>>>的行。

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

来源

2014-09-10 13:28:52

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

回答

相关问题