向列添加值

【问题标题】：Add a value to column向列添加值
【发布时间】：2018-03-21 09:41:26
【问题描述】：

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

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

t   t1   t2 

1    4    5  

2    3    6

3    5    8

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

感谢您的帮助！

【问题讨论】：

阅读for next loops for each loops loops 一般excel.range object
在第二行开始循环

标签： excel vba row add

【解决方案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

【讨论】：