excel - 如果存在特定单词，则扩展复制区域

Question

我写了一个代码，在其中过滤特定的东西并将它们粘贴到其他地方。

只有在有特定单词的情况下，如何将复制区域扩大一行？如果可能，我想将现在已复制的列的内容写入已存在值的单元格中。

这是我已经拥有的代码：

Sub Filtern()

Dim Lrow As Long
Dim lngLetzte As Long


With ThisWorkbook.Worksheets("Datenbasis")
        If .AutoFilterMode = False Then .Range("B:M").AutoFilter
        lngLetzte = .AutoFilter.Range.SpecialCells(xlCellTypeLastCell).Row
        'Filter wählen Kategorien"
        
.Range("A:M").AutoFilter 8, "X"
.Range("A:M").AutoFilter 2, "Y"
.Range("A:M").AutoFilter 9, "Z"


 If .Columns(3).SpecialCells(xlCellTypeVisible).Count > 1 Then
        
            .Range(.Cells(2, 3), .Cells(lngLetzte, 14)).Copy
            With Worksheets("L")
            
                Lrow = .Cells(.Rows.Count, "D").End(xlUp).Row + 1
                .Range("D" & Lrow).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
End If

数据库示例 结果示例

标签： excelvbaexcel-2016