切换到宽版
  • 1176阅读
  • 1回复

[程序设计]excel vba 实现多井数据分表 [复制链接]

上一主题 下一主题
在线阿果
 
发帖
10082
财富
62872
威望
2083
交易币
62
只看楼主 倒序阅读 使用道具 0楼 发表于: 2014-03-07 | 石油求职招聘就上: 阿果石油英才网

sheet1中是所有井数据放一起的,目的是将单口井的数据放一张表上,每口井一个表,表名是第一列井名。
  1. Sub tm()    
  2.     wellname1 = ""
  3.     For i = 1 To 3331
  4.         wellname2 = Sheet1.Cells(i, 1)
  5.         bb = Sheet1.Cells(i, 2)
  6.         cc = Sheet1.Cells(i, 3)
  7.         
  8.         If wellname2 <> wellname1 Then
  9.             wellname1 = wellname2
  10.             j = 1
  11.             AddSh (wellname1)
  12.             Worksheets(Worksheets.Count).Cells(j, 1) = wellname1
  13.             Worksheets(Worksheets.Count).Cells(j, 2) = bb
  14.             Worksheets(Worksheets.Count).Cells(j, 3) = cc
  15.         Else
  16.             j = j + 1
  17.             Worksheets(Worksheets.Count).Cells(j, 1) = wellname1
  18.             Worksheets(Worksheets.Count).Cells(j, 2) = bb
  19.             Worksheets(Worksheets.Count).Cells(j, 3) = cc
  20.         End If
  21.     Next
  22. End Sub
  23. Sub AddSh(ByVal sheetName As String)
  24.     Worksheets.Add after:=Worksheets(Worksheets.Count)
  25.     Worksheets(Worksheets.Count).Name = sheetName    
  26. End Sub




评价一下你浏览此帖子的感受

精彩

感动

搞笑

开心

愤怒

无聊

灌水


石油行业最新求职招聘信息,上阿果石油英才网:http://www.cnpcjob.com/
石油行业最新产品供应求购信息,上阿果石油供需网:http://b2b.agoil.cn/
石油文献资料预览下载,上石油文库:http://www.oilwenku.com/

网站事务联系QQ:1392013

个人微博:http://weibo.com/028chenguo
在线阿果
发帖
10082
财富
62872
威望
2083
交易币
62
只看该作者 1楼 发表于: 2014-03-07 | 石油求职招聘就上: 阿果石油英才网
每次都在末尾增加一个sheet


石油行业最新求职招聘信息,上阿果石油英才网:http://www.cnpcjob.com/
石油行业最新产品供应求购信息,上阿果石油供需网:http://b2b.agoil.cn/
石油文献资料预览下载,上石油文库:http://www.oilwenku.com/

网站事务联系QQ:1392013

个人微博:http://weibo.com/028chenguo

网站事务咨询:QQ:1392013 | 26189883
阿果石油网为免费个人网站,为石油人提供免费的在线即时技术交流场所,拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论和行为!
如有言论或会员共享的资料涉及到您的权益,请立即通知网站管理员,本站将在第一时间给予配合处理,谢谢!