统计名称不全objSheet1

Question

统计一组数据为以下：
Sub 住宅类整体_项目排名()Set objSheet1 = Worksheets("Sheet1")
Set objSheet2 = Worksheets("Sheet2")objSheet1.Select
 Selection.Sort Key1:=Range("R2"), Order1:=xlAscending, Key2:=Range("D2") _
        , Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin
        
For x = 1 To 60000
        If Trim(objSheet1.Cells(x, 1).Value) = "" Then
            ImaxRow = x - 1
            Exit For
        End If
    NextobjSheet2.Select
objSheet2.Cells(1, 1).Value = "项目"
objSheet2.Cells(1, 2).Value = "套数"
objSheet2.Cells(1, 3).Value = "占比"
objSheet2.Cells(1, 4).Value = "面积"
objSheet2.Cells(1, 5).Value = "占比"
objSheet2.Cells(1, 6).Value = "金额"
objSheet2.Cells(1, 7).Value = "占比"
objSheet2.Cells(1, 8).Value = "均价"
objSheet2.Cells(1, 9).Value = "城区"
objSheet2.Cells(1, 10).Value = "板块"j = 1For i = 2 To ImaxRow
 If Mid(objSheet1.Cells(i, 4).Value, 1, 3) <> Mid(objSheet1.Cells(i - 1, 4).Value, 1, 3) Then
   j = j + 1
   objSheet2.Cells(j, 1).Value = objSheet1.Cells(i, 4).Value
   objSheet2.Cells(j, 2).Value = objSheet2.Cells(j, 2).Value + 1
   objSheet2.Cells(j, 4).Value = objSheet2.Cells(j, 4).Value + objSheet1.Cells(i, 14).Value
   objSheet2.Cells(j, 6).Value = objSheet2.Cells(j, 6).Value + objSheet1.Cells(i, 16).Value
   objSheet2.Cells(j, 9).Value = objSheet1.Cells(i, 18).Value
   objSheet2.Cells(j, 10).Value = objSheet1.Cells(i, 19).Value
  Else
   objSheet2.Cells(j, 2).Value = objSheet2.Cells(j, 2).Value + 1
   objSheet2.Cells(j, 4).Value = objSheet2.Cells(j, 4).Value + objSheet1.Cells(i, 14).Value
   objSheet2.Cells(j, 6).Value = objSheet2.Cells(j, 6).Value + objSheet1.Cells(i, 16).Value
 End IfNextFor j = 2 To 450
  If objSheet2.Cells(j, 2).Value <> "" Then
  objSheet2.Cells(j, 8).Value = objSheet2.Cells(j, 6).Value / objSheet2.Cells(j, 4).Value
  End If
Next
End Sub请问那一个代码是识别字数？