两个SHEET匹配好表头后充填应列数据

dingyeah

sheet1表头ABC匹配到sheet2表头BAC匹配,与SHEET2的B列的A表头的A1和sheet1A列的A1不相等时sheet2 A列A3单元格填充A2数值，C列C3单元格填充C2数值,下面是我写的代码无法充填，请指出，万分感谢
Sub test()
Dim s1(), s2(), s1t(), s2t()
s1t = Sheet1.Range("A1:C1")
s1 = Sheet1.Range("A2:C4")
s2t = Sheet2.Range("A1:C1")
s2 = Sheet2.Range("B2:B3")
On Error Resume Next
For s1h = 1 To 3
    For s2h = 1 To 3
        If s1t(1, s1h) = s2t(1, s2h) Then
            For FF = 1 To 2
                For SS = 1 To 7
                    If s1(SS, 1) <> s2(FF, 1) Then
                        m = m + 1
                        Sheet2.Cells(s1h + m, s2h) = s1(SS, s1h)

                    End If
                Next SS
            Next FF
            m = 0
        End If
    Next s2h
Next s1h
End Sub

LIUZHU

上附件，亲