0

Добрый день. Подскажите пожалуйста, как в VBA считывать данные из ячеек одного листа, а вставлять их в ячейки другого листа? Варианты с формулами не предлагать, поскольку требуется именно через VBA

0

2 ответа 2

1
Sub switch()
    Dim wb As Workbook
    Dim ws1, ws2 As Worksheet

    Set wb = Application.ActiveWorkbook
    Set ws1 = wb.Worksheets("Лист1")
    Set ws2 = wb.Worksheets("Лист2")

    ' индексация ячеек начинается с 1 в формате (номер строки, номер столбца)
    ' скопирует данные с первого листа ячейки A1 на второй лист в ячейку A1
    ws2.Cells(1, 1) = ws1.Cells(1, 1)
End Sub
0
Sheets("Sheet2").Range("A1").Value = Sheets("Sheet1").Range("A1").Value
2
  • Постарайтесь писать более развернутые ответы. Поясните, на чем основано ваше утверждение? 9 авг 2016 в 4:33
  • Уточните, пожалуйста: по какому событию считывать? Достаточно кнопки для запуска макроса? Копировать диапазон или ячейку? Если большими диапазонами, с перестановкой или выборкой, лучше использовать массивы: считать исходные данные в память, обработать, выгрузить на лист. 28 авг 2016 в 23:06

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.