我的代码
Set myRange1 = ws1.Range("B5", ws1.Range("B5" & Rows.Count).End(xlUp))
答案 0 :(得分:1)
如果您尝试从Cell“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
答案 1 :(得分:0)
我认为以下部分很奇怪。
ws1.Range("B" & ws1.Rows.Count).End(xlUp).Address
“B5”& Rows.Count不正确。
如果您不使用Rows.Count。 试试这个。
show()