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

Question

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

Answer 1

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

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

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