следующая доступная строка и транспонирование - PullRequest
Новая
       111

следующая доступная строка и транспонирование

0 голосов
/ 14 июля 2020

У меня есть данные на одном листе в C7: C18. Эти данные необходимо скопировать в следующую доступную строку на другом листе. Я занимаюсь этим несколько часов и не могу заставить его работать.

Мне удалось заставить работать транспонированную часть, но она постоянно перезаписывает одну и ту же строку. 

    Private Sub SaveCust()
    Dim NRow As Long
    Worksheets("CustDB").Select
    NRow = Cells(Rows.Count, "A").End(xlUp).Row + 1
    Worksheets("CustDB").Range("a" & NRow & ":L"& NRow).Value = 
         WorksheetFunction.Transpose(Worksheets("Customer").Range("c7:c18"))

    End Sub

1 Ответ

0 голосов
/ 14 июля 2020 
Private Sub SaveCust()
Dim cus, cdb As Worksheet
Dim NRow As Long

Set cus = Worksheets("Customer")
Set cdb = Worksheets("CustDB")

NRow = cdb.Cells(Rows.Count, "A").End(xlUp).Row + 1


cdb.Range("a" & NRow & ":L" & NRow).Value = WorksheetFunction.Transpose(cus.Range("c7:C18").Value)

End Sub
...