Question

主要目标：将值复制到sheet2（行的纯数据，用于过滤器的值），源自sheet1的原始数据（行中和单独的单元格中的公式）。

我想要做的是

如果在Sheet2中将值分隔为一行，则复制Sheet1分离的单元格（更改值）和指定的单元格范围，但也要合并这些单独的单元格值，并以粘贴的Sheet1指定范围指示的空行的高度>的单元格如果它们的值<高度。

我将尝试通过＃1照片和我已经制作的＃2代码显示在工作表2 BUT中列“”中的最后一行值之后粘贴的内容我想念如何根据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

LostinVBA。复制范围粘贴合并

0 个答案: