向列添加值

Question

我是Excel VBA编程的新手，我有一个问题。

我有一个Excel表格，如下所示：

t   t1   t2 

1    4    5  

2    3    6

3    5    8

如何跳过带标题t,t1,t2的第一行，然后将数字 3 添加到每行的值中？

感谢您的帮助！

Answer 1

试试这段代码：

        Sub test_loop()

            lastRow = Cells(Rows.Count, 1).End(xlUp).Row
            lastCol = Cells(1, Columns.Count).End(xlToLeft).Column

                For i = 2 To lastRow
                    For j = 1 To lastCol
                        Cells(i, j).Value = Cells(i, j).Value + 3
                    Next j
                Next i

    End Sub