VBA按钮实现：向选中单元格插入U并同步至Sheet2同区域

修改后的完整代码 #

替换按钮原有的代码为以下内容即可实现同步：

Sub FillUAndSync()
    ' 校验选中对象是否为单元格区域
    If TypeName(Selection) <> "Range" Then
        MsgBox "请先选中目标单元格区域！", vbExclamation
        Exit Sub
    End If
    
    ' 给Sheet1选中区域填充"U"
    Selection.Value = "U"
    
    ' 同步到Sheet2的对应单元格区域
    ThisWorkbook.Worksheets("Sheet2").Range(Selection.Address).Value = "U"
End Sub

代码说明 #

• 增加选中校验：避免未选中单元格（或选中形状/图表等非单元格对象）时触发错误。
• 简化赋值逻辑：原代码Intersect(Selection, Selection) = "U"等价于Selection.Value = "U"，写法更简洁直接。
• 同步核心逻辑：通过Selection.Address获取Sheet1选中区域的地址，直接定位Sheet2的对应区域并赋值。

扩展：同步格式（可选） #

如果需要同步填充的格式（比如单元格背景色、字体样式），可以改用复制粘贴的写法：

Sub FillUAndSyncWithFormat()
    If TypeName(Selection) <> "Range" Then
        MsgBox "请先选中目标单元格区域！", vbExclamation
        Exit Sub
    End If
    
    Selection.Value = "U"
    ' 复制Sheet1选中区域的所有内容和格式
    Selection.Copy
    ' 粘贴到Sheet2对应区域
    ThisWorkbook.Worksheets("Sheet2").Range(Selection.Address).PasteSpecial xlPasteAll
    ' 取消复制状态，避免剪贴板残留
    Application.CutCopyMode = False
End Sub

注意事项 #

• 确保Sheet2的名称与代码中的"Sheet2"一致，若工作表名称修改过，需同步调整代码中的名称。
• 若两个工作表结构完全一致，此代码可精准对应到相同位置的单元格。

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