[求助]应该是VB的程序，看不懂意思，能否帮忙解释一下

wuliaojin

          Sub omg()
    Dim i As Integer
    Dim m As Integer
    Dim n As Integer
    Dim x As Integer
    Dim Y As Integer
    Dim gg As Range
        For i = 2 To Range("a64446").End(xlUp).Row
                    Set gg = Worksheets(2).Cells.Find(Worksheets(1).Cells(i, 3), LookIn:=xlValues, LookAt:=xlWhole)
                    If gg Is Nothing Then
                       Worksheets(1).Cells(i, 4).Value = "未找到"
                    Else
                        m = gg.Row
                        n = gg.Column
                        If Worksheets(2).Cells(m - 1, 1).Value <> "" Then
                            x = Worksheets(2).Cells(m, 1).End(xlUp).Row
                            Y = Worksheets(2).Cells(x - 1, 20).End(xlToLeft).Column
                            Debug.Print Worksheets(2).Cells(x - 1, Y).Value
                            Else
                             x = Worksheets(2).Cells(m, 1).Row
                             Y = Worksheets(2).Cells(x - 1, 20).End(xlToLeft).Column
                             Debug.Print Worksheets(2).Cells(x - 1, Y).Value
                        End If
                        If Len(Worksheets(2).Cells(x - 1, Y)) > 10 Then
                            Worksheets(1).Cells(i, 4).Value = Right(Worksheets(2).Cells(x - 1, Y), 6) & "  " & gg.Offset(-x + 1, 0).Address(0, 0)
                        Else
                            Worksheets(1).Cells(i, 4).Value = Worksheets(2).Cells(x - 1, Y).Value & "  " & gg.Offset(-x + 1, 0).Address(0, 0)
                        End If
                    End If
        Next i
End Sub           


拜谢！！感谢！！！

meirennengmofan

貌似在查找什么……

diyfgq

vba for excel

遍历一张EXCEL表中SHEETS1