从如下代码哪里可以看出查询结果显示的位置

清风流年

Sub ()

Sheet305.Range("p2:t1048576").ClearContents
Application.ScreenUpdating = False

Dim ar, br, cr, dr, er, fr, gr, hr
ar = Sheet202.Range("a2:g" & Sheet202.Range("a1048576").End(3).Row)
ReDim br(1 To UBound(ar), 1 To 4)
cr = Cells(Cells.Rows.Count, 1).End(xlUp).Row

For dr = 2 To Sheet105.UsedRange.Rows.Count
    If Application.CountIf(Sheet202.Range("c:c"), Sheet105.Cells(dr, 15)) >= 1 Then
        For er = 1 To UBound(ar)
            If InStr(ar(er, 3), Replace(Sheet105.Range("o" & dr).Value, "*", "")) > 0 Then
               fr = fr + 1
               For gr = 1 To 4
                   br(fr, gr) = ar(er, gr)
               Next
            End If
        Next
    End If
Next

Range("a" & cr + 1).Resize(fr, 4) = br

Application.ScreenUpdating = True

End Sub

求助：从上述代码中哪里可以看出其查询结果只显示在A列，我想把查询的结果显示到o列该如何修改，谢谢各位高手的指点。

清风流年

还请各位高手能给予指点，非常感谢。

wudixin96

Range("a" & cr + 1).Resize(fr, 4) = br
改成
Range("o" & cr + 1).Resize(fr, 4) = br

清风流年

wudixin96 发表于 2014-6-3 16:27
Range("a" & cr + 1).Resize(fr, 4) = br
改成
Range("o" & cr + 1).Resize(fr, 4) = br

非常感谢，谢谢

清风流年

wudixin96 发表于 2014-6-3 16:27
Range("a" & cr + 1).Resize(fr, 4) = br
改成
Range("o" & cr + 1).Resize(fr, 4) = br

能否帮我修改一下这组代码，非常感谢
Dim zgw1, zgw2
'    With Sheet305
'    zgw1 = .[b1048576].End(3).Row
'        For zgw2 = zgw1 To 1 Step -1
'            If WorksheetFunction.CountIf(.Columns(2), .Cells(zgw2, 2)) > 1 Then
'            .Rows(zgw2).Delete
'            End If
'        Next
'    End With

我的这组代码是根据b列删除重复值，如果我的数据显示在a-d列内，后面e-g列有其他数据，我想根据b列只删除a-d列的重复值即空白单元格，不影响到e-g列的内容，该如何修改？非常感谢