Перенос данных на следующий лист без заголовка

Перенос данных на следующий лист без заголовка. Данные перемещаются вместе с заголовком. Пытаюсь оставить заголовок и скопировать данные только на другой лист.

Sub cmdButtonData_Click()

    SellStartDate = Sheets("Start").Range("H10").Value   
    SellEndDate = Sheets("Launch").Range("H11").Value     

    'Copy the data
    Sheets("Sheet1").Range("A1:K2").Copy Sheets("Sheet2").Range("A1")
    Sheets("Sheet1").Range("A3:K16000").SpecialCells(xlCellTypeConstants).Copy Sheets("Sheet2").Range("A3")
    Sheets("Sheet1").Activate
    Sheets("Sheet2").Range("A3:T3").Clear

End Sub

Ваш код копирует A1: K2, затем A3: K1600, я бы предположил, что ваш заголовок находится в одном из этих диапазонов, измените диапазоны для копирования, чтобы не включать строку заголовка

Davesexcel 13.09.2018 20:39
1
1
37
1
Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Вы можете использовать «Смещение» и «Изменить размер», если у A3 есть заголовок. Честно говоря, немного непонятно, но это показывает принцип.

With Sheets("Sheet1").Range("A3:K16000").SpecialCells(xlCellTypeConstants)
   .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Copy Sheets("Sheet2").Range("A3")
End With

Это именно то, что я искал. Спасибо

John 13.09.2018 21:18

Я все время получаю эту ошибку. «Это действие не будет работать с множественным выбором». Раньше он работал идеально.

John 09.10.2018 15:20

Что дает debug.print Sheets ("Sheet1"). Range ("A3: K16000"). SpecialCells (xlCellTypeC‌ onstants) .Address?

QHarr 09.10.2018 15:40

Это давало мне ошибку: «Это действие не будет работать с несколькими вариантами выбора.

John 10.10.2018 16:34

Другие вопросы по теме