将宏从新工作表添加到现有工作表

Question

我有一个预算，并有一个宏，每个月都会添加一个新工作表，然后我希望能够将一组单元从新工作表复制到名为Totals的现有工作表，将这些单元格放在第4行下一个空白列中。这可能吗？

Answer 1

这是一个简单的宏来做你想做的事。 rowIndex只是你需要的第四行，sizeOfTotals是你总计的下一个空白列，我提供了几个如何设置单个单元格或单元格范围的示例。

Sub yourMacro() 
' KEEP ALL OF YOUR CODE THE SAME AND ADD THE FOLLOWING 

Dim sizeOfTotals, rowIndex As Integer 
sizeOfTotals = Sheets("Totals").Range("A4").End(xlToRight).Column + 1 
rowIndex = 4 

With Sheets("Totals") 
    .Cells(rowIndex, sizeOfTotals).Value = "blah" ' Set individual cells in this way 
    .Cells(rowIndex + 1, sizeOfTotals).Value = "ROW 5" ' an example of the next row 
    .Range(Cells(rowIndex, sizeOfTotals),Cells(rowIndex + 9, sizeOfTotals)).Value = 4 ' Set a range of cells in the row to a value 
End With 

End Sub 

任何进一步的问题或问题只是让我知道。