注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

第一天

Ajaap

 
 
 

日志

 
 

VBA--excel将特定字符串分离  

2007-09-07 15:01:52|  分类: VBA |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

比如把下面的'1911'弄到另一列,还得去掉':',还要防止无答案的情况,及两个':'的情况

 

清华大学建于哪一年? : 1911

 

 

Sub copyAnswer()

For j = 2 To 993

    For i = 1 To Len(Sheet2.Cells(j, 1).Value)
   
        If (Mid(Sheet2.Cells(j, 1).Value, i, 1) = ":") And (i <> Len(Sheet2.Cells(j, 1).Value)) Then
           
            Sheet2.Cells(j, 2).Value = Trim(Right(Sheet2.Cells(j, 1).Value, (Len(Sheet2.Cells(j, 1).Value) - i)))
           
            Sheet2.Cells(j, 1).Value = Left(Sheet2.Cells(j, 1).Value, i - 1)
           
        End If
   
       
    Next i

Next j


For k = 2 To 993

    For p = 1 To Len(Sheet2.Cells(k, 2).Value)
   
        If (Mid(Sheet2.Cells(k, 2).Value, p, 1) = ":") And (Len(Sheet2.Cells(k, 2).Value) <> 1) Then
       
            Sheet2.Cells(k, 2).Value = Trim(Mid(Sheet2.Cells(k, 2).Value, 3, Len(Sheet2.Cells(k, 2).Value) - 2))
           
            Sheet2.Cells(k, 1).Value = Sheet2.Cells(k, 1).Value + ":"
       
        End If
       
        If (Mid(Sheet2.Cells(k, 2).Value, p, 1) = ":") And (Len(Sheet2.Cells(k, 2).Value) = 1) Then
       
            Sheet2.Cells(k, 2).Value = ""
                  
            Sheet2.Cells(k, 1).Value = Sheet2.Cells(k, 1).Value + ":"
       
        End If
   
    Next p

Next k

 

End Sub

  评论这张
 
阅读(377)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017