需求：为列添加单元格标记功能，用于复制指定行数据至其他工作表

一、Excel环境 #

表单控件复选框 #

• 打开「开发工具」选项卡 → 「插入」→ 表单控件 → 选择「复选框（窗体控件）」
• 将复选框拖动到目标单元格内，调整大小匹配单元格范围
• 右键复选框 → 「设置控件格式」→ 「控制」选项卡，设置「单元格链接」为当前单元格
• 点击复选框时，单元格会自动切换为1（勾选状态）和0（取消勾选状态），完全嵌入单元格，不会偏移

VBA单元格点击事件 #

如果不想用控件，可直接通过单元格事件实现：

1. 右键工作表标签 → 「查看代码」
2. 粘贴以下代码（假设目标列是A列）：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 And Target.Cells.Count = 1 Then
        Target.Value = IIf(Target.Value = 1, 0, 1)
        ' 可选：把数值转为对应文字显示
        Target.NumberFormat = """添加至工作表"";;""不添加"""
    End If
End Sub

点击A列单元格时，值会在1和0之间切换，同时显示自定义文字，模拟按钮效果。

二、Google Sheets环境 #

内置复选框 #

• 选中目标列单元格 → 菜单栏「插入」→ 「复选框」
• 右键单元格 → 「数据验证」，将勾选时的值设为1，未勾选时设为0（默认是TRUE/FALSE，按需修改）
• 复选框完全嵌入单元格，点击即可切换对应数值

脚本编辑器自定义点击逻辑 #

1. 菜单栏「扩展」→ 「应用脚本」
2. 粘贴以下代码（假设目标列是A列）：

function onSelectionChange(e) {
    const range = e.range;
    if (range.getColumn() === 1 && range.getNumRows() === 1 && range.getNumColumns() === 1) {
        const currentValue = range.getValue();
        range.setValue(currentValue === 1 ? 0 : 1);
        // 可选：设置单元格显示文字
        range.setNumberFormat('"添加至工作表";;"不添加"');
    }
}

保存后，点击目标列单元格即可切换1和0，同时显示对应文本。

额外优化建议 #

你提到的批量添加方案，可配合上述标记值实现自动化：编写函数遍历所有行，读取标记列的1/0，自动将标记为1的行数据复制到目标工作表，比手动选行更高效准确。

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