如何用VBA跨工作表实现基于Sheet1列C的值填充Sheet2列AP

嘿，我来帮你搞定这个跨工作表宏的问题～

你碰到的核心问题其实是没有明确指定工作表对象，导致代码默认只在当前激活的工作表里执行操作。咱们只需要给单元格引用加上工作表的限定，就能轻松实现跨Sheet的联动啦。

修正后的完整代码 #

Private Sub Set_Border_Pattern(Requirements_Selector_Str As String)
    Dim strTemp As String
    Dim strRange As String
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 明确绑定两个目标工作表，彻底避免引用混乱
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    Set ws2 = ThisWorkbook.Worksheets("Sheet2")
    
    ' 获取Sheet1中C列的最后一行数据，避免遍历无效空行
    lastRow = ws1.Cells(ws1.Rows.Count, "C").End(xlUp).Row
    
    ' 遍历Sheet1的C列每一行，实现跨表联动
    For i = 1 To lastRow
        ' 兼容大小写，不管输入"Y"还是"y"都能触发
        If UCase(ws1.Cells(i, "C").Value) = "Y" Then
            ' 在Sheet2对应行的AP列写入标记，这里用"covered"，你可以换成"Y"
            ws2.Cells(i, "AP").Value = "covered"
        Else
            ' 可选操作：如果C列不是Y，清空Sheet2对应位置的标记
            ws2.Cells(i, "AP").ClearContents
        End If
    Next i
End Sub

关键修改点说明 #

• 绑定工作表对象：用Set ws1 = ThisWorkbook.Worksheets("Sheet1")明确指定操作的工作表，所有单元格调用都通过这两个对象执行，彻底解决跨表引用的模糊问题。
• 优化遍历范围：通过lastRow获取C列的实际数据行，避免无意义地遍历整个工作表的空行，提升宏的运行效率。
• 大小写兼容处理：用UCase()把单元格值转成大写再判断，就算输入小写"y"也能触发标记，更灵活实用。

实时联动的调用提示 #

如果你想实现“Sheet1的C列内容变化时自动更新Sheet2”的效果，可以给Sheet1添加Worksheet_Change事件，把这段代码放到Sheet1的代码模块里：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 只监听C列的内容变化
    If Not Intersect(Target, Me.Columns("C")) Is Nothing Then
        Set_Border_Pattern "" ' 这里的参数可以根据你原代码的需求调整，暂时传空字符串即可
    End If
End Sub

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