[已解决]更新或者重新录入数据

c888

更新或者重新录入数据(VBA)6.rar (2.74 KB, 下载次数: 8)

2011-5-15 09:58 上传

点击文件名下载附件
复制的数据都是在新位置的第一行（表2中的第2行）。如果原数据与复制入的新数据日期与姓名相同时，进行数据更新。谢谢指导！

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2011-5-15 10:26

回复 c888 的帖子

1. Sub 录入数据()
   
2. i = Sheets("2").[b65536].End(xlUp).Row
   
3. For Ro = 2 To i
   
4. If Sheets("2").Cells(Ro, 2) = [D51] And Sheets("2").Cells(Ro, 1) = [C51] Then
   
5. Range("C51:P51").Copy Sheets("2").Range("A" & Ro)
   
6. Exit Sub
   
7. End If
   
8. Next Ro
   
9. Sheets("2").Range("A2:N" & i).Copy Sheets("2").Range("A3")
   
10. Range("C51:P51").Copy Sheets("2").Range("A2")
    
11. End Sub

复制代码

附件： 更新或者重新录入数据(VBA)6.rar (9.91 KB, 下载次数: 29)

2011-5-15 10:26 上传

点击文件名下载附件

跳转到最佳答案楼层

无聊的疯子

楼主的已存在是指所有内容相同还是只有日期和姓名？？

看着有点像学生的成绩统计表

c888

回复 无聊的疯子 的帖子

以日期、姓名相同为条件。谢谢！

sunjing-zxl

回复 c888 的帖子

1. Sub 录入数据()
   
2. i = Sheets("2").[b65536].End(xlUp).Row
   
3. For Ro = 2 To i
   
4. If Sheets("2").Cells(Ro, 2) = [D51] And Sheets("2").Cells(Ro, 1) = [C51] Then
   
5. Range("C51:P51").Copy Sheets("2").Range("A" & Ro)
   
6. Exit Sub
   
7. End If
   
8. Next Ro
   
9. Sheets("2").Range("A2:N" & i).Copy Sheets("2").Range("A3")
   
10. Range("C51:P51").Copy Sheets("2").Range("A2")
    
11. End Sub

复制代码

附件： 更新或者重新录入数据(VBA)6.rar (9.91 KB, 下载次数: 29)

2011-5-15 10:26 上传

点击文件名下载附件

无聊的疯子

回复 c888 的帖子

1. Dim Arr, Hx
   
2.     With Sheet2
   
3.         Arr = .Range("a2:b" & .Range("a65536").End(xlUp).Row)
   
4.         For Hx = 1 To UBound(Arr)
   
5.             If Arr(Hx, 1) = Sheet1.Range("C51") And Arr(Hx, 2) = Sheet1.Range("D51") Then
   
6.                 Sheet1.Range("C51:P51").Copy .Cells(Hx + 1, 1)
   
7.                 Exit Sub
   
8.             End If
   
9.         Next
   
10.         Sheet1.Range("C51:P51").Copy
    
11.         .Rows("2:2").Insert Shift:=xlDown
    
12.     End With

复制代码

看看是不是这样的？

yeshuangyong

好东西，分项