2013-11-20 244 views

回答

0

假設你已經得到了在d列的參考,通過.Find例如,你可以使用.Offset如下複製對E部分。

range([D1],[D1].end(xldown).offset(-1)).offset(,1).copy 

假設您的sd值在範圍D1中,這將從E列複製值2到7。

+0

對不起..ur代碼不工作..y = Range([D1],[D1] .End(xlDown).Offset(-1))。Offset(,1).Address MsgBox y This give me一個輸出E1:E1048575 – user2703472

+0

它只會這樣做,如果您將它從單元格D1以下沒有任何東西的表單運行。用你的例子,我的解決方案有效(除了最後一個塊,我會同意的)。 – nutsch