Question

我有以下代码，它会从“数据”工作表中复制/粘贴一些列并粘贴到我在名为“KomKo”的主表中指定的列中的下一个空列。

$(document).ready(function(){
    $('.ends').keyup(function(){
            var starts = 0;
            var ends = 0;
            var stunden = 0;            
            if (!isNaN($(this).parent().parent().find(".starts").val())) {
                starts = $(this).parent().parent().find(".starts").val();
            }
            if (!isNaN($(this).parent().parent().find(".ends").val())) {
                ends = $(this).parent().parent().find(".ends").val();
            }            
            stunden = starts - ends;
            $(this).parent().next().find('.stunden').val(stunden);

    });    
});

现在我想为另一列添加if条件;应该说“如果工作表中的列U”数据“具有单元格值”8636“那么这些值应粘贴到工作表”KomKo“（pastesheet）中的H列;到下一行，因为我使用上面的代码”with “部分。

否则（如果H列中的值不是8636）那么它应该将此列中的值粘贴到工作表“KomKo”（pastesheet）中的G列，并再次具有与上述相同的首选项。

我该怎么做？

Answer 1

所以，我在下面用循环中的if-then提出了一个建议。我认为它接近你想要的......

Sub try6()

Dim ws As Worksheet
Dim ws2 As Worksheet

Dim x As Range

Set ws = Worksheets("data")
Set ws2 = Worksheets("KomKo")

For Each x In ws.Range("C1:C100")
    If x.Value = 8636 Then
     ws2.Range("H:H").Value = ws.Cells(Rows.Count, "A").Value
         ElseIf x <> 8636 Then
        ws2.Range("G:G").Value = ws.Range(Rows.Count, "B").Value
      End If
    Next x

End Sub

测试它，执行需要一段时间。我会说，设置A10000之类的动态范围并直接复制它，而不必测试复制范围内是否有值。

你也可以使用Select方法来复制选择 - 从个人经验来看，我已经取得了不错的成功，我看到有人建议不要在这里使用它。

这些是我的.02，希望它有所帮助！欢呼声。

if else语句复制和粘贴单元格值

1 个答案: