[已解决]在另表查找到后将内容移动到表的最后行

小雨饰品

当“低保退保”表中J列数值大于等于2时（例如J5），用D列的姓名（例如D5凌正福）在“名单”表的D列中查找，当找到时，就将这一行移动到“名单”表的最后一行。谢谢

最佳答案

月排行榜 / 总排行榜

yyyydddd8888

2013-10-24 17:50

小雨饰品 发表于 2013-10-24 16:05
谢谢，已经接近我的想法了，原来我没讲清楚，可否再修改一下，另外可否加上一个选择，即当我选择”低保退 ...

刚才没有看清要求，现在修改了，看下能不能达到你的要求

退保修改.zip (16.07 KB, 下载次数: 9)

2013-10-24 17:50 上传

点击文件名下载附件

跳转到最佳答案楼层

yyyydddd8888

请看看是不是要这样的效果：
退保.rar (12.12 KB, 下载次数: 3)

2013-10-24 15:38 上传

点击文件名下载附件

1. Sub 按钮1_单击()
   
2. Dim a&, b&, i&, str1$, str2$
   
3. i = Worksheets("名单").Range("d65536").End(3).Row
   
4. For a = 5 To Worksheets("低保退保").Range("d65536").End(3).Row
   
5.     If Worksheets("低保退保").Range("j" & a).Value >= 2 Then
   
6.        str1 = Worksheets("低保退保").Range("d" & a)
   
7.           For b = i To 3 Step -1
   
8.              str2 = Worksheets("名单").Range("d" & b)
   
9.              If str2 = str1 Then
   
10.                 Worksheets("名单").Rows(b).Copy Worksheets("名单").Range("a" & Range("a65536").End(3).Row + 1)
    
11.                 Worksheets("名单").Rows(b).Delete
    
12.              End If
    
13.           Next b
    
14.     End If
    
15. Next a
    
16. End Sub
    

复制代码

小雨饰品

谢谢，已经接近我的想法。可否再修改一下，只将第一次出现的剪切到后面，第二、第三次出现的就不用动了

小雨饰品

yyyydddd8888 发表于 2013-10-24 15:38
请看看是不是要这样的效果：

谢谢，已经接近我的想法了，原来我没讲清楚，可否再修改一下，另外可否加上一个选择，即当我选择”低保退保“的D列某一单元格，就将此姓名在”名单“的D列中查找（只将等于”低保退保“一个姓名的行剪切，其它的内容不动），如果找到就剪切到文档的最后。非常感谢你抽出时间解决我的问题。

yyyydddd8888

小雨饰品 发表于 2013-10-24 16:05
谢谢，已经接近我的想法了，原来我没讲清楚，可否再修改一下，另外可否加上一个选择，即当我选择”低保退 ...

先看看这个，不行我再修改：
退保2.rar (13.98 KB, 下载次数: 3)

2013-10-24 17:27 上传

点击文件名下载附件

yyyydddd8888

小雨饰品 发表于 2013-10-24 16:05
谢谢，已经接近我的想法了，原来我没讲清楚，可否再修改一下，另外可否加上一个选择，即当我选择”低保退 ...

刚才没有看清要求，现在修改了，看下能不能达到你的要求

退保修改.zip (16.07 KB, 下载次数: 9)

2013-10-24 17:50 上传

点击文件名下载附件

小雨饰品

yyyydddd8888 发表于 2013-10-24 17:50
刚才没有看清要求，现在修改了，看下能不能达到你的要求

这个太好用了！谢谢，谢谢帮助。