[已解决]在某区域内，用vba根据条件批量复制数值

yslvictor

首先感谢各位论坛老师和论坛前辈帮助我解决了不少的问题。
我是vba刚入门者，只能是在实践中，遇到一个问题，向各位请教一个。
今请教一个问题是：在某区域内，用vba根据条件批量复制数值（不复制格式和公式）。如图：



条件：在I3:R3中，如果同列的行3的数值大于同列行2的数值，就复制这个数值到同列的行2中，否则，不复制。
例如：I3小于I2，不复制;J3等于J2，不复制;K3大于K2，复制K3的数值到K2；H3虽然大于H2，但不在上述的区域内，所以不操作。
批量复制后如图：



Book1.rar (4.73 KB, 下载次数: 10)

2013-3-3 10:16 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

蓝桥玄霜

2013-3-3 19:42

1. Sub lqxs()
   
2. Dim Arr, i&, Myc%
   
3. Sheet1.Activate
   
4. Myc = [iv4].End(xlToLeft).Column
   
5. Arr = Cells(2, 9).Resize(2, 10)
   
6. For j = 1 To UBound(Arr, 2)
   
7.     If Arr(3, j) > Arr(1, j) Then Arr(1, j) = Arr(3, j)
   
8. Next
   
9. Cells(2, 9).Resize(2, 10) = Arr
   
10. End Sub
    

复制代码

跳转到最佳答案楼层

蓝桥玄霜

1. Sub lqxs()
   
2. Dim Arr, i&, Myc%
   
3. Sheet1.Activate
   
4. Myc = [iv4].End(xlToLeft).Column
   
5. Arr = Cells(2, 9).Resize(2, 10)
   
6. For j = 1 To UBound(Arr, 2)
   
7.     If Arr(3, j) > Arr(1, j) Then Arr(1, j) = Arr(3, j)
   
8. Next
   
9. Cells(2, 9).Resize(2, 10) = Arr
   
10. End Sub
    

复制代码

yslvictor

谢谢蓝桥玄霜版主老师！