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

yslvictor

首先感谢各位论坛老师和论坛前辈帮助我解决了不少的问题。
我是vba刚入门者，只能是在实践中，遇到一个问题，向各位请教一个。
（因头一个帖子图发错了请版主删除
http://www.excelpx.com/thread-296160-1-1.html）
今请教一个问题是：在某区域内，用vba根据条件批量复制数值（不复制格式和公式）。如图：


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




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

2013-3-3 11:18 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

zjdh

2013-3-3 13:01

Sub test()
  For I = 9 To 18
    If Cells(3, I) > Cells(2, I) Then Cells(2, I) = Cells(3, I)
  Next
End Sub

跳转到最佳答案楼层

zjdh

Sub test()
  For I = 9 To 18
    If Cells(3, I) > Cells(2, I) Then Cells(2, I) = Cells(3, I)
  Next
End Sub

rinyxa

1. Sub aa()
   
2. For i = 9 To 18
   
3.    If Cells(2, i) < Cells(3, i) Then
   
4.    Cells(2, i) = Cells(3, i)
   
5.    End If
   
6.    Next i
   
7. End Sub
   

复制代码

看看这样可以吗

yslvictor

谢谢两位论坛老师。