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

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