2016-12-26 47 views

回答

1

如果你想從小區「B5」的範圍內,直到最後一排與B欄數據(與跳繩在中間的空白單元格)使用下面的代碼:

With ws1 
    Set myRange1 = .Range("B5:B" & .Cells(.Rows.Count, "B").End(xlUp).Row) 
End With 

選項2:如果您想從小區「B5」的範圍內,直到最後一排與B欄數據(沒有跳過空白單元格在中間)使用下面的這個可選代碼:

With ws1 
    Set myRange1 = .Range("B5:B" & .Range("B5").End(xlDown).Row) 
End With 
0

我覺得以下部分很奇怪。

ws1.Range("B5" & Rows.Count).End(xlUp) 

「B5」& Rows.Count不正確。

如果您不會使用Rows.Count。 試試這個。

ws1.Range("B" & ws1.Rows.Count).End(xlUp).Address 
相關問題