使用复选框将行复制并粘贴到另一张工作表中

Question

我正在创建一个客户信息列表，以及另一个我想在excel中发信的客户列表。我想单击一个复选框，并将该行中的客户信息复制并粘贴到其他列表中的下一个可用行中。

客户信息在工作表1（重命名为客户）上，从B列第2行第K列结束。复选框位于L列并链接到M列。

我想将信息复制到的列表是相同的设置，但没有在sheet2（重命名为“清洁列表”）上的复选框。

我已经写了一个公式来选中该框后移动信息，我使用了

function (form, ...) 
{
    new_values <- list(...)
    no_match <- setdiff(names(new_values), names(form$fields))
    if (length(no_match) > 0) {
        stop("Unknown field names: ", paste(no_match, collapse = ", "), 
            call. = FALSE)
    }
    for (field in names(new_values)) {
        type <- form$fields[[field]]$type %||% "non-input"
        if (type == "hidden") {
            warning("Setting value of hidden field '", field, 
                "'.", call. = FALSE)
        }
        else if (type == "submit") {
            stop("Can't change value of submit input '", field, 
                "'.", call. = FALSE)
        }
        form$fields[[field]]$value <- new_values[[field]]
    }
    form
}

但是我必须为每个框创建一个新公式，并且不允许将信息复制到下一个可用行中。