首页 \ 问答 \ 根据条件删除行(Deleting rows based on criteria)

根据条件删除行(Deleting rows based on criteria)

 我有一些代码，所以我可以将特定的行移动到特定的表格，其结构如下：  
 
  表1（包含所有数据）  
  表2（要移动的目标表）  
 
 所以基本上代码在特定列上查找关键字，并将指定列上满足该条件的所有行从工作表1复制到工作表2，它就像魅力一样。 我遇到的问题是因为数据组织，我需要在复制后删除行，我尝试使用.copy target而不是.copy target ，它也可以工作，但需要很长时间（约1分钟以上） ），看起来整个时间都冻结了，因为它不会让你选择任何东西。  
 有任何建议可以更有效地完成这项 我正在学习VBA，所以请耐心等待。  
Sub Copydatatoothersheet()
    Dim c As Range
    Dim j As Integer
    Dim Source As Worksheet
    Dim Target As Worksheet

    ' Change worksheet designations as needed
    Set Source = ActiveWorkbook.Worksheets("Sheet1")
    Set Target = ActiveWorkbook.Worksheets("Sheet2")

    j = 3     ' Start copying to row 3 in target sheet
    Application.ScreenUpdating = False
    For Each c In Source.Range("BB:BB")
        If c = "UNPAID" Then
        'THIS IS THE LINE WHERE I REPLACE COPY WITH CUT
           Source.Rows(c.Row).Copy Target.Rows(j)
           j = j + 1
        End If
    Next c
    Application.ScreenUpdating = True
End Sub

I have a little code so I can move specific rows to a specific sheet which is structured as follows: 
 
 sheet 1 (contains all data) 
 sheet 2 (the destination sheet of rows to move) 
 
So basically the code looks for a keyword on a specific column, and copies all rows that meet that criteria on the specified column from sheet 1 to sheet 2, it does that like a charm. The problem I have is because of data organization, I need to delete the rows once they have been copied, I tried using the .cut target instead of .copy target, and it works too, but it takes extremely long (about 1+ min), and it looks like that whole time is frozen as it doesn't let you select anything.  
Any suggestions to accomplish this more efficiently? I am learning VBA, so please bear with me. 
Sub Copydatatoothersheet()
    Dim c As Range
    Dim j As Integer
    Dim Source As Worksheet
    Dim Target As Worksheet

    ' Change worksheet designations as needed
    Set Source = ActiveWorkbook.Worksheets("Sheet1")
    Set Target = ActiveWorkbook.Worksheets("Sheet2")

    j = 3     ' Start copying to row 3 in target sheet
    Application.ScreenUpdating = False
    For Each c In Source.Range("BB:BB")
        If c = "UNPAID" Then
        'THIS IS THE LINE WHERE I REPLACE COPY WITH CUT
           Source.Rows(c.Row).Copy Target.Rows(j)
           j = j + 1
        End If
    Next c
    Application.ScreenUpdating = True
End Sub

原文：https://stackoverflow.com/questions/48878352

更新时间：2022-01-08 16:01

最满意答案

 你需要一些小的改变：  
$(document).ready(function () {
  if ($(window).width() < 736) {
social=[]; //create array
        $('.img-responsive').each(function() {
            imgSrc = $(this).attr('src');

        var twitter="<a rel='external nofollow' class='social twitter' href='https://twitter.com/intent/tweet?url=http://www.example.com"+imgSrc+"&text=Check out this photo from Example Photography&hashtags=photos' onclick=\"javascript:window.open(this.href,'', 'menubar=no,toolbar=no,resizable=yes,scrollbars=yes,height=300,width=600');return false;\"></a>";
        var facebook="<a rel='external nofollow' class='social facebook' href='https://www.facebook.com/sharer/sharer.php?u=http://www.example.com"+imgSrc+"' onclick=\"javascript:window.open(this.href,'', 'menubar=no,toolbar=no,resizable=yes,scrollbars=yes,height=300,width=600');return false;\"></a>";
        var google="<a rel='external nofollow' class='social gPlus' href='https://plus.google.com/share?url=http://www.example.com"+imgSrc+"' onclick=\"javascript:window.open(this.href,'', 'menubar=no,toolbar=no,resizable=yes,scrollbars=yes,height=300,width=600');return false;\"></a>";
        var pinterest="<a rel='external nofollow' class='social pinterest' href='http://pinterest.com/pin/create/button/?url=https://www.example.com"+imgSrc+"&description=' onclick=\"javascript:window.open(this.href,'', 'menubar=no,toolbar=no,resizable=yes,scrollbars=yes,height=300,width=600');return false;\"></a>"; 
        social.push("<div class='socialContainer'>"+twitter+facebook+google+pinterest+"</div>"); //push values

        });
          $('#photos a').each(function (i) {
            $(this).after(social[i]); //add values 
        });
        // NOT WORKING
        $('#photos a').on('click', function(e){
           e.preventDefault();
           $(this).find('.socialContainer').toggle();
        });
    }
});
 
 演示： https ： //jsfiddle.net/w0tknfb6/10/  
 说明：在第一个each（）循环之后，您正在使用社交变量，并且正如您所期望的那样，您只有一个/最后一个值可用。 通过这种方式，通过创建数组，并将其中的所有值推入，您可以将它用于新的每个循环（#photos一个循环），并将其“注入”到主体...更改在代码中注释。 

You need few small changes: 
$(document).ready(function () {
  if ($(window).width() < 736) {
social=[]; //create array
        $('.img-responsive').each(function() {
            imgSrc = $(this).attr('src');

        var twitter="<a rel='external nofollow' class='social twitter' href='https://twitter.com/intent/tweet?url=http://www.example.com"+imgSrc+"&text=Check out this photo from Example Photography&hashtags=photos' onclick=\"javascript:window.open(this.href,'', 'menubar=no,toolbar=no,resizable=yes,scrollbars=yes,height=300,width=600');return false;\"></a>";
        var facebook="<a rel='external nofollow' class='social facebook' href='https://www.facebook.com/sharer/sharer.php?u=http://www.example.com"+imgSrc+"' onclick=\"javascript:window.open(this.href,'', 'menubar=no,toolbar=no,resizable=yes,scrollbars=yes,height=300,width=600');return false;\"></a>";
        var google="<a rel='external nofollow' class='social gPlus' href='https://plus.google.com/share?url=http://www.example.com"+imgSrc+"' onclick=\"javascript:window.open(this.href,'', 'menubar=no,toolbar=no,resizable=yes,scrollbars=yes,height=300,width=600');return false;\"></a>";
        var pinterest="<a rel='external nofollow' class='social pinterest' href='http://pinterest.com/pin/create/button/?url=https://www.example.com"+imgSrc+"&description=' onclick=\"javascript:window.open(this.href,'', 'menubar=no,toolbar=no,resizable=yes,scrollbars=yes,height=300,width=600');return false;\"></a>"; 
        social.push("<div class='socialContainer'>"+twitter+facebook+google+pinterest+"</div>"); //push values

        });
          $('#photos a').each(function (i) {
            $(this).after(social[i]); //add values 
        });
        // NOT WORKING
        $('#photos a').on('click', function(e){
           e.preventDefault();
           $(this).find('.socialContainer').toggle();
        });
    }
});
 
Demo: https://jsfiddle.net/w0tknfb6/10/ 
Explanation: After first each() loop you are using social variable, and, as expected, you have just one/last value available. This way, by creating array, and push all values in it, you can use it for new each loop (#photos a loop), and 'inject' it to body... Changes commented in code.

根据条件删除行(Deleting rows based on criteria)

最满意答案

相关问答

jQuery如何将多个img srcs附加到数组中(jQuery how to append multiple img srcs into an array)[2024-02-24]

在函数形式中忽略Makefile CFLAGS和SRCS-y(Makefile CFLAGS and SRCS-y are ignored in function form)[2023-09-18]

循环以获取图像srcs来填充动态共享div(Loop to get image srcs to populate dynamic sharing div)[2024-02-03]

将C ++生成的文件分派到srcs和hdrs中(Dispatching C++ generated files into srcs and hdrs)[2023-09-14]

使用UIActivityViewController共享图像(Sharing image using UIActivityViewController)[2023-09-04]

如何使用动态对象填充DevExpress GridControl(How to populate DevExpress GridControl with Dynamic Objects)[2023-05-17]

Aplpy多色动态轴共享(Aplpy multiplot dynamic axis sharing)[2023-09-11]

与动态控制器共享指令隔离范围(Sharing directive isolated scope with dynamic controller)[2023-08-31]

相关文章

最新问答