让我帮你搞定这两个问题，直接基于你的需求修改代码，同时解释关键逻辑：

首先明确核心需求：跳过源表的标题行，把数据粘贴到目标表第5行（偏移4行），并且只复制有实际内容的单元格，避免文件体积膨胀。下面是修改后的完整代码：

Sub CopyMatchingColumns()
    Dim sourceTitleCell As Range
    Dim targetTitleCell As Range
    Dim sourceDataRange As Range
    Dim lastSourceRow As Long
    Dim targetStartRow As Long
    
    ' 保留你原有的命名标题范围
    Dim sourceTitleRange As Range
    Dim targetTitleRange As Range
    Set sourceTitleRange = Sheets("SQL").Range("SQL_Titel")
    Set targetTitleRange = Sheets("Ziel").Range("Ziel_Titel")
    
    ' 目标表起始粘贴行：标题占4行，所以从第5行开始
    targetStartRow = 5
    
    ' 遍历源表的每个标题列
    For Each sourceTitleCell In sourceTitleRange
        ' 找到当前源列最后一个有数据的行（跳过第1行的标题）
        lastSourceRow = Sheets("SQL").Cells(Sheets("SQL").Rows.Count, sourceTitleCell.Column).End(xlUp).Row
        
        ' 只有源列有实际数据时才执行复制
        If lastSourceRow >= 2 Then
            ' 精准定义源数据范围：从第2行到最后一行的有效数据
            Set sourceDataRange = Sheets("SQL").Range(Sheets("SQL").Cells(2, sourceTitleCell.Column), Sheets("SQL").Cells(lastSourceRow, sourceTitleCell.Column))
            
            ' 遍历目标表标题，匹配同名列
            For Each targetTitleCell In targetTitleRange
                If sourceTitleCell.Value = targetTitleCell.Value Then
                    ' 粘贴到目标列的指定起始行
                    sourceDataRange.Copy Destination:=Sheets("Ziel").Cells(targetStartRow, targetTitleCell.Column)
                    
                    ' 【可选】如果不需要复制格式，只保留值，用下面这行替代上面的Copy，能大幅减小文件体积
                    ' Sheets("Ziel").Cells(targetStartRow, targetTitleCell.Column).Resize(sourceDataRange.Rows.Count).Value = sourceDataRange.Value
                    
                    Exit For ' 找到匹配列后直接退出内层循环，提升效率
                End If
            Next targetTitleCell
        End If
    Next sourceTitleCell
    
    MsgBox "列复制完成！", vbInformation
End Sub

针对你的两个问题的具体说明： #

问题1：偏移4行粘贴且跳过源标题

• 我们设置targetStartRow = 5，对应目标表4行标题后的起始位置；
• 源表标题占1行，所以源数据范围从第2行开始，用Sheets("SQL").Cells(2, sourceTitleCell.Column)定位起始点，确保不会复制源表标题。

问题2：仅复制实际已用范围

• 用lastSourceRow = Sheets("SQL").Cells(Sheets("SQL").Rows.Count, sourceTitleCell.Column).End(xlUp).Row精准找到源列最后一个非空行，避免复制整列的空单元格和冗余格式；
• 额外添加If lastSourceRow >= 2的判断，确保源列有数据时才执行复制，避免无效操作；
• 如果不需要保留格式，推荐用代码中注释的直接赋值方式，完全不带格式，能最大程度控制文件体积。

额外优化点 #

• 给变量起了更清晰的名称（比如sourceTitleCell代替Sh2Cell），方便后续维护；
• 找到匹配的目标列后用Exit For退出内层循环，减少不必要的遍历，提升代码运行速度。

内容的提问来源于stack exchange，提问作者Thomas Strickner