vba 处理excel中一个sheet中的数据

 

 

On Error Resume Next

'要找关键字的行数循环

For i = 2 To 235

    '取出每一行中的关键字

    bugid1 = ThisWorkbook.Sheets(2).Cells(i, 2).Value

 

'    被查找到行数循环

    For j = 2 To 135

        '取得被找行中的关键字

        bugid2 = ThisWorkbook.Sheets(1).Cells(j, 7).Value

 

'        MsgBox bugid2

        '比较要查找的关键字bugid1和找到的关键字bugid2是否相同

        If bugid1 = bugid2 Then

            '相同时

            '从被找行中取出要的信息（名字）

           uname = ThisWorkbook.Sheets(1).Cells(j, 2).Value

            '将找到的关键信息（名字）放入指定的cell中

            ThisWorkbook.Sheets(2).Cells(i, 1).Value = uname

        End If

        '没有找到关键信息（名字）继续查找下一行

    Next

 

Next

 

 

 

 

 

On Error Resume Next

 

For i = 2 To 235

    bugid1 = ThisWorkbook.Sheets(2).Cells(i, 2).Value

'    MsgBox bugid1

    For j = 2 To 135

        bugid2 = ThisWorkbook.Sheets(1).Cells(j, 8).Value

'        MsgBox bugid2

        If bugid1 = bugid2 Then

           uname = ThisWorkbook.Sheets(1).Cells(j, 3).Value

            ThisWorkbook.Sheets(2).Cells(i, 1).Value = uname

'           MsgBox uname

        End If

    Next

Next