Excel VBA求助：ws.Cells无法完成If验证及单元格选择，需复制匹配列

核心问题点 #

• 未明确指定Range/Cells的父工作表，跨工作簿引用时出现对象归属混乱，这是ws.Cells条件验证失效、无法选择单元格的主要原因。
• 用CountA计算行/列数会跳过空单元格，导致数据范围计算不准确。
• 依赖ActiveWorkbook/ActiveSheet这类动态对象，代码稳定性差，易因操作环境变化出错。

修复后的代码 #

Sub pull_columns()
    Dim head_count As Long
    Dim row_count As Long
    Dim col_count As Long
    Dim i As Long
    Dim j As Long
    Dim ws As Worksheet
    Dim sourceWb As Workbook
    Dim sourceWs As Worksheet

    Application.ScreenUpdating = False

    ' 明确绑定目标工作表
    Set ws = ThisWorkbook.Sheets("Tabelle1")
    ' 计算目标表表头列数（限定父工作表，避免引用混乱）
    head_count = ws.Cells(2, ws.Columns.Count).End(xlToLeft).Column

    ' 打开源文件并赋值变量，摒弃Active类对象
    Set sourceWb = Workbooks.Open(Filename:="C:\Users\...\CC_Global_Log_File_Scenario_Split.xlsx")
    Set sourceWs = sourceWb.Sheets(1)

    ' 计算源表数据行数、列数（从第3行开始统计）
    row_count = sourceWs.Cells(sourceWs.Rows.Count, 1).End(xlUp).Row
    col_count = sourceWs.Cells(3, sourceWs.Columns.Count).End(xlToLeft).Column

    ' 匹配表头并批量赋值数据
    For i = 1 To head_count
        For j = 1 To col_count
            ' 统一用Value比较，避免Text格式差异导致匹配失败
            If ws.Cells(2, i).Value = sourceWs.Cells(3, j).Value Then
                ' 直接赋值替代复制粘贴，效率更高且无剪贴板依赖
                ws.Cells(2, i).Resize(row_count - 2).Value = sourceWs.Cells(3, j).Resize(row_count - 2).Value
                Exit For ' 找到匹配列后直接跳出循环，减少冗余遍历
            End If
        Next j
    Next i

    ' 关闭源文件
    sourceWb.Close savechanges:=False

    ' 激活目标工作表后再执行单元格选择操作
    ws.Activate
    ws.Cells(2, 1).Select

    Application.ScreenUpdating = True
End Sub

关键修复说明 #

• 锁定工作表引用：给所有Range/Cells指定明确的父工作表，彻底解决跨工作簿对象引用混乱的问题。
• 精准计算范围：用End(xlUp).Row和End(xlToLeft).Column获取最后行/列，不会因空单元格导致范围遗漏。
• 优化数据传递：用直接赋值替代复制粘贴，提升代码运行效率，同时避免剪贴板相关问题。
• 去除动态对象依赖：用变量存储打开的工作簿和工作表，代码稳定性大幅提升。
• 修复单元格选择：先激活目标工作表，再执行Select操作，解决无法选中单元格的问题。

内容的提问来源于stack exchange，提问作者Ricardo Torreblanca