Mystr = "sdgasg5545"
            TargetStr = ""
            For Item = 1 To Len(Mystr)
                If cell.Characters(Item, 1).Font.Size > 5 Then
                   TargetStr = TargetStr & Mid(Mystr, Item, 1)
                End If
            Next
      

大概是这样,手工改了,未在IDE中验证过:

         string   Mystr = "sdgasg5545" ;
         string   TargetStr = "" ;
            For (Item = 1 ;Item< Len(Mystr);Item++ )
            {
                If (cell.Characters(Item, 1).Font.Size > 5 )
                  {
                   TargetStr += Mid(Mystr, Item, 1) ;
                 }
            }

学习了！！！