Question

我已经编写了获取空白单元格信息的代码，但问题是我想要复制空白调用之前的数据。在空白单元格之后可能存在值。这是我的代码：

Set rng = Range("6:6").Find(What:=horiz, LookIn:=xlValues, LookAt:=xlWhole)    
If rng Is Nothing Then
    MsgBox "Value not found in row 1", vbExclamation
Else
    rng.EntireColumn.Copy
    Range("p1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    MsgBox Range("C1").End(xlDown)(2, 1).Value

Answer 1

我无法真正看到您的数据集，很难说这是防弹，但从您的帖子中说，这可能就是您所需要的。

更改

rng.EntireColumn.Copy（复制整栏）

到

Range(rng, rng.end(xlDown)).Copy将范围从找到的范围复制到空白之前的最后一个单元格。

如果要复制找到的范围之上的所有单元格，直到找到上面的空白以及下面的所有单元格，请写下：

Range(rng.End(xlUp), rng.End(xlDown)).Copy

如何复制空白单元格之前的值

1 个答案: