Копировать ячейки на основе макроса количества строк

У меня есть две рабочие тетради. Мне нужно взять количество строк из рабочей книги 1 (назовем это «количество строк»), а затем скопировать первую строку в рабочую книгу 2 по количеству строк в «количестве строк».

Рабочая книга 2 — это шаблон, который содержит ряд уравнений в ячейках и извлекает данные из рабочей книги 1.

Это неправильно, но, надеюсь, излагает идею:

I=WORKBOOK1.Worksheets("Sheet1").Range("A1",Range("A2").End(xlDown)).Rows.Count
    WORKBOOK2.Worksheets("Sheet1")Range("C1").Select
    Range(Selection, ("C1:CI")).Select

excel macros vba rowcount
person Andrew Harris    schedule 20.10.2016    source источник

Ответы (2)


arrow_upward
0
arrow_downward

Не уверен, что это может помочь вам.

Sub Macro1()


    Sheets("Sheet2").Select
    Range("C3:L3").Select
    Selection.Copy
    Sheets("Sheet1").Select
    Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
    ActiveSheet.Paste

End Sub
  1. выберите лист2
  2. выберите нужный диапазон
  3. скопируйте выделение
  4. выберите лист1
  5. перейти к следующей доступной строке (снизу вверх), используемой из этот ответ
  6. вставьте то, что было скопировано
person davejal    schedule 20.10.2016

arrow_upward
0
arrow_downward

использовать это:

Sub main()
    With Workbooks("Wb1Name").Worksheets("Sheet1")
        Workbooks("Wb2Name").Worksheets("Sheet1").Rows(1).Copy Destination:=.Cells(.Rows.Count, 1).End(xlUp).Offset(1)
    End With
End Sub

просто измените «Wb1Name» и «Wb2Name» на ваши фактические имена книг «workbook 1» и «workbook 2».

person user3598756    schedule 20.10.2016