我有段代码，但是运行后没有用，请大神给指点一下

f0229f0229

    Range("b6") = ""            ' 如果b6单元格内没有筛选出内容，说明这是新内容，将会保留到u列
    Range("n1:s1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("u3").Select
    Range("u" & [u1].End(xlDown).Row + 1).Select                                  ' 保留到u 列最后一个非空单元格的下一格
   
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("n1:s1").Select                  ' 删除n1:s1
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
代码要表达的意思是：如果b6单元格是空的，则先将n1:s1复制粘贴到u列的最后一个非空单元格的下边一个空单元格内，再删除n1:s1行，并将n2:s2上移到n1:s1行。 如果b6单元格内有数值，则直接删除n1:s1行，并将n2:s2上移到n1:s1行

请大神给修改一下，谢谢

vbee

将示例文件压缩后上传，方便解决问题

jinbinghao

1. If Range("B6") = "" Then
   
2.         Range("N1:S1").Copy Cells(Rows.Count, 21).End(3).Offset(1)
   
3.     End If
   
4.     Range("N1:S1").Delete 2

复制代码

我没测试，挺简单的操作，应该没问题，你试试吧

f0229f0229

jinbinghao 发表于 2018-7-31 11:27
我没测试，挺简单的操作，应该没问题，你试试吧

你好，想请教一下，如果b6=""，表达式：If Range("B6") = "" Then，如果b6〈〉""，表达式该如何写，谢谢

f0229f0229

jinbinghao 发表于 2018-7-31 11:27
我没测试，挺简单的操作，应该没问题，你试试吧

你好，代码测试过，没有解决b6<>""时，只删除n1:s1,但不保存到u列的问题，还请大神帮忙，谢谢

f0229f0229

代码要表达的意思是：如果b6单元格内是空的，则先将n1:s1复制粘贴到u列的最后一个非空单元格的下边一个空单元格内，再删除n1:s1行，并将n2:s2上移到n1:s1行。 如果b6单元格内有数值，则直接删除n1:s1行，并将n2:s2上移到n1:s1行

请大神给修改一下，谢谢

jinbinghao

f0229f0229 发表于 2018-8-1 10:32
代码要表达的意思是：如果b6单元格内是空的，则先将n1:s1复制粘贴到u列的最后一个非空单元格的下边一个空单 ...

我看你说的意思就是如果B6=""，就复制N1:S1到U，无论怎么样都是要执行删除的，那还判断B6<>""干嘛？

jinbinghao

你是没试代码，还是我没理解对？

f0229f0229

jinbinghao 发表于 2018-8-1 14:24
你是没试代码，还是我没理解对？

你好，代码我试过才给你说的，N1:S1确实是都要删除的，但他们的删除前提不同，也就是说B6单元格内如果没有出现数值，就说明N1:S1是新出现的数据，需要保存到U，再删除掉是为了让N2:S2上移进行下一组数据的比对，B6单元格内有数值时说明N1:S1是曾经出现过的数据是不需要的可以直接删除掉让N2:S2上移进行下一组数据的比对。你的代码运行后，B6是空值时运行正常，可当B6不是空值时，代码不能分辨，仍然对数据进行保存，这样就不能进行比对了，不知我是否解释清楚了，我的电脑不知何故不能上传，所以只能文字表达，还请见谅

f0229f0229

帖子又沉了，顶一下