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

我已经编写了获取空白单元格信息的代码，但问题是我想复制空白调用之前的数据。空白单元之后可能会有一个值。这里是我的代码：如何复制空白单元格之前的值

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

来源

2012-09-14 M_S_SAJJAN

你说的是什么电池？ Excel中？ –

你确定这是VB.NET而不是实际的VB6吗？在.NET中'Set'并不真正有效。 –

它是使用VBA EXCEL >> –

我实在看不出你的数据集，所以很难说这是防弹，但是从你的帖子里说了什么，这可能是你所需要的。

变化

rng.EntireColumn.Copy（其复制整个列）

到

Range(rng, rng.end(xlDown)).Copy，其拷贝由前一坯件的发现范围内的最后一个单元的范围内。

如果你想所有的单元格复制上面找到的范围，直到找到一个空白的上方与下方的所有单元格，这样写：

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

来源

2012-09-14 13:28:28

感谢大家理解我的问题我很抱歉发生了错误 –

+1了解了OP的含义！ –

将范围从找到的范围复制到空白之前的最后一个单元格 –

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

回答

相关问题