[已解决]根据双条件复制时或更新或生成

c888

Book1.rar (2 KB, 下载次数: 14)

2011-5-9 23:49 上传

点击文件名下载附件 谢谢大家！

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2011-5-10 08:36

回复 c888 的帖子

1. Sub 数据录入()
   
2. For i = 2 To Sheets("2").[A65536].End(xlUp).Row
   
3. If Sheets("2").Cells(i, 1) & Sheets("2").Cells(i, 2) = Sheets("1").Cells(10, 3) & Sheets("1").Cells(10, 4) Then
   
4. Sheets("1").Range("C10:O10").Copy Sheets("2").Cells(i, 1)
   
5. Exit For
   
6. End If
   
7. Next i
   
8. If i > Sheets("2").[A65536].End(xlUp).Row Then
   
9. Sheets("1").Range("C10:O10").Copy Sheets("2").Cells(i, 1)
   
10. End If
    
11. End Sub

复制代码

Book1.rar (9.28 KB, 下载次数: 8)

2011-5-10 08:36 上传

点击文件名下载附件

跳转到最佳答案楼层

sunjing-zxl

回复 c888 的帖子

1. Sub 数据录入()
   
2. For i = 2 To Sheets("2").[A65536].End(xlUp).Row
   
3. If Sheets("2").Cells(i, 1) & Sheets("2").Cells(i, 2) = Sheets("1").Cells(10, 3) & Sheets("1").Cells(10, 4) Then
   
4. Sheets("1").Range("C10:O10").Copy Sheets("2").Cells(i, 1)
   
5. Exit For
   
6. End If
   
7. Next i
   
8. If i > Sheets("2").[A65536].End(xlUp).Row Then
   
9. Sheets("1").Range("C10:O10").Copy Sheets("2").Cells(i, 1)
   
10. End If
    
11. End Sub

复制代码

Book1.rar (9.28 KB, 下载次数: 8)

2011-5-10 08:36 上传

点击文件名下载附件