vba - 在vba-excel中连续插入相同的值

Question

我是 vba 的新手。我不知道如何从现有的工作表字段中循环相同的值。我进行了搜索，但没有找到我要搜索的内容。

这是我的情况。例如。我有一个这样的领域:

year     value
2012     100
2013     300
2014     400

我有新数据 2015 必须插入 5 次，结果必须是这样的

year     value
2012     100
2013     300
2014     400
2015     900
2015     900
2015     900
2015     900
2015     900

我的代码是这样的:

Private Sub AddPostClick_Click()
    Dim lRow As Long
    Dim ws As Worksheet
    Set ws = Worksheets("DATA")

    lRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
        SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

With ws

        If CheckBox1.Value = False Then
                For lRow = 1 To 5
                    .Cells(lRow + 1, 1).Value = tYear.Value
                    .Cells(lRow + 1, 2).Value = txtValue.Value
                Next lRow
        End If

End With
End Sub

我的代码将替换以前的行，而不是从现有的最后一行连续插入。这是我的问题。

Answer 1

您正在覆盖 lrow .声明一个新的 long .调用 i并将其用作计数器。

        Dim i as long
        For i = Lrow + 1 To lrow + 1 + 5 
                    .Cells(i, 1).Value = tYear.Value
                    .Cells(i, 2).Value = txtValue.Value
                Next lRow