Блог

Я пытаюсь импортировать набор данных в свой новый документ Excel из дампа данных из Microsoft Forms. У меня есть код, работающий там, где я могу выбрать файл, и он импортирует все строки. Я пытался найти, как это сделать в Интернете, но могу найти способ сделать это, указав каждый столбец от A до W своим собственным кодом.

 Dim i As Integer
Sheets("Sheet1").Select
i = 1

With Range("A1")
   If .Cells(1, 1).Value = "" Then
   Else
     Range(.Cells(1, 1), .End(xlDown)).Copy Destination:=Sheets("Sheet2").Range("A" amp; i)
     x = x   1
   End If
End With

Sheets("Sheet1").Select
  

Найдите последнюю строку и скопируйте один раз:

 With Sheets("Sheet1")
    Dim lastRow As Long
    lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row

    If Not IsEmpty(.Range("A1")) Then
        .Range("A1:W" amp; lastRow).Copy Destination:=Sheets("Sheet2").Range("A1")
    End If
End With