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

あなたの問題に対する2つの異なる解決策があります。任意の列から最後の行を決定でき、気にする場合は別の列を参照できるため、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 に答える