Question

我的代码可以找到现有excel文件中的最后一个非空行。我想将5个文本框中的数据插入到列中的下一个5个字符。我不知道如何编码。请帮帮我，这是我的代码：

With xlWorkSheet
        If EXL.WorksheetFunction.CountA(.Cells) <> 0 Then
            lRow = .Cells.Find(What:="*", _
                          After:=.Range("A2"), _
                          LookAt:=Excel.XlLookAt.xlPart, _
                          LookIn:=Excel.XlFindLookIn.xlFormulas, _
                          SearchOrder:=Excel.XlSearchOrder.xlByRows, _
                          SearchDirection:=Excel.XlSearchDirection.xlPrevious, _
                          MatchCase:=False).Row
        Else
            lRow = 1
        End If

    End With

Answer 1

以下是针对您的问题的两种不同解决方案。我更喜欢第二种，因为你可以从任何一列确定一个lastrow，如果你关心将它引用到另一列。

Dim nextrow As Integer = excel.Rows.End(XlDirection.xlDown).Row + 1

Dim ws As Worksheet = excel.ActiveSheet
Dim nRow = ws.Range("A" & ws.Rows.Count).End(XlDirection.xlUp).Row + 1

然后你要做的就是分配一个值：

excel.Range("A" & nRow).Value = "test"
excel.range("B" & nRow).value = "adjacent column"

如果你想将它循环到下面的5个单元格，那么执行：

Dim ws As Worksheet = excel.ActiveSheet
Dim lRow = ws.Range("A" & ws.Rows.Count).End(XlDirection.xlUp).Row

For i = 1 To 5
    excel.Range("A" & lRow).Offset(i, 0).Value = "variable here"
Next

如何使用vb.net将数据附加到现有的excel文件？

1 个答案: