[已解决]VBA 代码哪里写不对，帮忙修改下

zames

1、正常点击 Copy 控件按钮，I3:I5 单元格应该是空白的，没有数值，现在跑出数值了。2、单元格 V3:V22 若填有数值，点击 Copy 控件按钮，则 A:I 列会自动出现需要的数据，原先 I3:I5 出现的数值会被覆盖了。

最佳答案

月排行榜 / 总排行榜

林木水

2021-12-15 10:36

同意楼上观点，补充一下说明。因为h没有数值的时候值是1，你定义mrr=range("i3:i1"),他就默认是
QR Data
空值
空值
那么你下面的Nrr就是
http://q.did.as/+QR Data
http://q.did.as/+空值
http://q.did.as/+空值
最后你把Nrr赋值给到I3:I5，当然就有结果了，并且不是你要的结果。

但是如果h>=3那就不一样了，说明你输入内容，最后结果就是你要的了

跳转到最佳答案楼层

大灰狼1976

1.       h = Sheet1.Cells(Rows.Count, "I").End(xlUp).Row
   
2.       If h = 1 Then Exit Sub  '这个位置加这句代码

复制代码

其余没发现问题，V3:V22有数值时，程序正常返回结果。

林木水

同意楼上观点，补充一下说明。因为h没有数值的时候值是1，你定义mrr=range("i3:i1"),他就默认是
QR Data
空值
空值
那么你下面的Nrr就是
http://q.did.as/+QR Data
http://q.did.as/+空值
http://q.did.as/+空值
最后你把Nrr赋值给到I3:I5，当然就有结果了，并且不是你要的结果。

但是如果h>=3那就不一样了，说明你输入内容，最后结果就是你要的了