两列数据与Sheet2两列数据相比对，新增数据依次自动添加到Sheet2两列中

a18b88

详见附件，谢谢！

a18b88

附件： 两列数据与Sheet2两列数据相比对，新增数据依次自动添加到Sheet2两列中.rar (5.92 KB, 下载次数: 37)

2018-8-30 10:15 上传

点击文件名下载附件

astupig

在工作表Sheet1标签，右击，查看代码，添加以下代码：
Private Sub Worksheet_Change(ByVal Target As Range)

Dim i As Integer
Dim h As Integer

h = Sheet1.Range("C65536").End(xlUp).Row

If Target.Column = 3 Or Target.Column = 4 Then
   
    For i = 3 To h
        If Sheet2.Cells(i, "G") <> Sheet1.Cells(i, "C") Then
            Sheet2.Cells(i, "G") = Sheet1.Cells(i, "C")
        End If
        
        If Sheet2.Cells(i, "H") <> Sheet1.Cells(i, "D") Then
            Sheet2.Cells(i, "H") = Sheet1.Cells(i, "D")
        End If
   
    Next
   

End If

End Sub

a18b88

谢谢您 astupig 朋友，测试了，存在的问题是：重复的也添加过来了，也就是说工作表已经用的就不再添加了，这不符合我的目的要求，您在麻烦给斟酌一下。

astupig

a18b88 发表于 2018-8-30 11:22
谢谢您 astupig 朋友，测试了，存在的问题是：重复的也添加过来了，也就是说工作表已经用的就不再添加了， ...

重复的也添加过来了，也就是说工作表已经用的就不再添加了

这个什么意思？ 需要说清楚。

astupig

Dim h As Integer

h = Sheet1.Range("C65536").End(xlUp).Row
H2 = Sheet2.Range("G65536").End(xlUp).Row
m = 1
t = 0



If Target.Column = 3 Or Target.Column = 4 Then
   
    For i = 3 To h
            t = 0
            For j = 3 To H2
                If Sheet2.Cells(j, "G") = Sheet1.Cells(i, "C") And Sheet2.Cells(j, "H") = Sheet1.Cells(i, "D") Then
                    t = t + 1
                End If
            Next

            
            If t = 0 Then
            
                Sheet2.Cells(H2 + m, "G") = Sheet1.Cells(i, "C")
                Sheet2.Cells(H2 + m, "H") = Sheet1.Cells(i, "D")
                m = m + 1
            End If
            
            
        
            
    Next
   

End If

End Sub

astupig

不好意思，这个才对。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim i, j, t, m As Integer
Dim h As Integer

h = Sheet1.Range("C65536").End(xlUp).Row
H2 = Sheet2.Range("G65536").End(xlUp).Row
m = 1
t = 0



If Target.Column = 4 Then
   
    For i = 3 To h
            t = 0
            For j = 3 To H2
                If Sheet2.Cells(j, "G") = Sheet1.Cells(i, "C") And Sheet2.Cells(j, "H") = Sheet1.Cells(i, "D") Then
                    t = t + 1
                End If
            Next

            
            If t = 0 Then
            
                Sheet2.Cells(H2 + m, "G") = Sheet1.Cells(i, "C")
                Sheet2.Cells(H2 + m, "H") = Sheet1.Cells(i, "D")
                m = m + 1
            End If
            
            
        
            
    Next
   

End If

End Sub

a18b88

谢谢你您 astupig 朋友，可以了，鲜花献上。