LostinVBA.Скопировать диапазон Вставить слияние - PullRequest
Новая
       23

LostinVBA.Скопировать диапазон Вставить слияние

0 голосов
/ 19 ноября 2018

Основная цель: значения, скопированные в sheet2 (строки простых данных, значения для фильтра), исходные данные из sheet1 (формулы в строках и отдельных ячейках).

То, что я хочу:

Копировать отдельные ячейки Sheet1 (изменяющиеся значения) и указанный диапазон ячеек, ЕСЛИ они имеют значения в строку в Sheet2, а также объединяют значения отдельных ячеек с высотой> пустых строк, указанных вставленным указанным диапазоном Sheet1ячеек, ЕСЛИ у них есть значения <высота. </p>

Я попытаюсь показать через фотографию # 1 и код # 2, который я уже сделал, который вставляет после последней строки значений в столбце "" вsheet2 НО мне не хватает, как добавить объединение отдельных значений в соответствии со строками, занятыми столбцом "" в Sheet2. 

Sub TIMtoKAM()

    Application.ScreenUpdating = False

    Dim copySheet As Worksheet
    Dim pasteSheet As Worksheet

    Set copySheet = Worksheets("TIM")
    Set pasteSheet = Worksheets("KAM")

    copySheet.Range("C24:D40").Copy
    pasteSheet.Cells(Rows.Count, 6).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

    copySheet.Range("I24:P40").Copy
    pasteSheet.Cells(Rows.Count, 6).End(xlUp).Offset(-4, 2).PasteSpecial xlPasteValues
    copySheet.Range("J6").Copy

    pasteSheet.Cells(Rows.Count, 6).End(xlUp).Offset(-4, -3).PasteSpecial xlPasteValues
    copySheet.Range("J7").Copy

    pasteSheet.Cells(Rows.Count, 6).End(xlUp).Offset(-4, -2).PasteSpecial xlPasteValues
    copySheet.Range("N7").Copy

    pasteSheet.Cells(Rows.Count, 6).End(xlUp).Offset(-4, -1).PasteSpecial xlPasteValues
    copySheet.Range("M7").Copy

    pasteSheet.Cells(Rows.Count, 6).End(xlUp).Offset(-4, -4).PasteSpecial xlPasteValues
    copySheet.Range("P45").Copy

    pasteSheet.Cells(Rows.Count, 6).End(xlUp).Offset(-4, 10).PasteSpecial xlPasteValues

    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

vba excel image

...