数据匹配

Sub fun1()

'统计每一个sheet有多少行数据
Set s1 = Sheet1

Dim c1 As Integer
Dim c2 As Integer


Dim L1 As Integer
Dim L2 As Integer

c1 = Sheets(1).Range("A65535").End(xlUp).Row    '表1的行数
c2 = Sheets(2).Range("A65535").End(xlUp).Row    '表2的行数
L1 = Sheets(1).Range("IV2").End(xlToLeft).Column '表1的列数
L2 = Sheets(2).Range("IV1").End(xlToLeft).Column '表2的行数

L1 = 35
Dim tempstring As String

For i = 2 To c1
 tempstring = Sheet1.Cells(i, 3)                  '取表1的第3列数据进行判断，相同的话，复制表2的同名数据     这里表1的第3列是学号  
  For Z = 2 To c2  
  If (Sheet2.Cells(Z, 1) = tempstring) Then  
  For F = 1 To L2  
  Sheet1.Cells(i, L1 + F) = Sheet2.Cells(Z, F)  
  Next
  End If
  Next
Next
End Sub