1

我有代码可以在现有的 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
4

1 回答 1

2

对于您的问题，这里有两种不同的解决方案。我更喜欢第二个，因为您可以从任何列中确定最后一行，如果您愿意将其引用到另一列。

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
于 2013-03-09T05:28:54.243 回答