VBA数据调取数据重复,不知所措
在表1和表2数据调取过程中,新录入数据会重复,求救。程序代码:
Private Sub Worksheet_Change(ByVal Target As Range) Dim a As Integer Dim b As Integer b = 2 Do b = b + 1 If Sheet2.Cells(b, 1) = "" Then Exit Do End If Loop For a = 4 To 3000 If Sheet1.Cells(a, 13) = "已术" Then Sheet2.Cells(b, 1) = Sheet1.Cells(a, 2) Sheet2.Cells(b, 2) = Sheet1.Cells(a, 3) Sheet2.Cells(b, 3) = Sheet1.Cells(a, 4) Sheet2.Cells(b, 4) = Sheet1.Cells(a, 5) Sheet2.Cells(b, 5) = Sheet1.Cells(a, 6) Sheet2.Cells(b, 6) = Sheet1.Cells(a, 7) Sheet2.Cells(b, 7) = Sheet1.Cells(a, 8) Sheet2.Cells(b, 8) = Sheet1.Cells(a, 16) Sheet2.Cells(b, 9) = Sheet1.Cells(a, 17) b = b + 1 End If Next End Sub
屈光专科护士登记表测试一版.rar
(58.16 KB)