如何複製空白單元格之前的值

我已經編寫了獲取空白單元格信息的代碼，但問題是我想複製空白調用之前的數據。空白單元之後可能會有一個值。這裏是我的代碼：如何複製空白單元格之前的值

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的含義！ –

將範圍從找到的範圍複製到空白之前的最後一個單元格 –

如何複製空白單元格之前的值

回答

相關問題