• 1122阅读
  • 0回复
[其它类] 有用的几行VB代码
chayizhao
高级会员
手机号码已验证


 发短消息   关注Ta 

纪念勋章·七周年  
积分 1623
帖子 282
威望 747 个
礼品券 8 个
专家指数 212
注册 2006-11-27
专业方向  GSM网络优化
来自 陕西
回答问题数 114
回答被采纳数 14
回答采纳率 12%
 
发表于 2018-6-28 17:09:13  只看楼主  QQ

有用的几行VB代码



Sub 竖转横()

Dim a As Long, b As Long, c As Long, d As Long

a = 2: b = 3: c = 2: d = 3

Worksheets("sheet2").Cells(1, 1) = Worksheets("sheet1").Cells(1, 1)

Do Until IsEmpty(Cells(a, 1))

Worksheets("sheet2").Cells(c, 1) = Worksheets("sheet1").Cells(a, 1): Worksheets("sheet2").Cells(c, 2) = Worksheets("sheet1").Cells(a, 2)

Do Until Cells(a, 1) <> Cells(b, 1)

Worksheets("sheet2").Cells(c, d) = Worksheets("sheet1").Cells(b, 2)

a = a + 1

b = b + 1

d = d + 1

Loop

d = 3

a = a + 1

b = b + 1

c = c + 1

Loop

End Sub



Sub 删除BCCH()

Dim a As Long, b As Long, c As Long

a = 2: b = 2: c = 3

Do Until IsEmpty(Cells(a, 1))

Do Until Worksheets("sheet1").Cells(a, 1) = Worksheets("sheet1").Cells(a, b)

b = b + 1

Loop

Worksheets("Sheet1").Cells(a, b).Delete shift:=xlShiftToLeft

b = 2

a = a + 1

Loop

End Sub






Sub 横转竖()

Dim a As Long, b As Long, c As Long

a = 2: b = 2: c = 2

Worksheets("sheet2").Cells(1, 1) = Worksheets("sheet1").Cells(1, 1)

Do Until IsEmpty(Worksheets("sheet1").Cells(a, 1))

Do Until IsEmpty(Worksheets("sheet1").Cells(a, b))

Worksheets("sheet2").Cells(c, 2) = Worksheets("sheet1").Cells(a, b)

Worksheets("sheet2").Cells(c, 1) = Worksheets("sheet1").Cells(a, 1)

c = c + 1

b = b + 1

Loop

b = 2

a = a + 1

Loop

End Sub


微信扫描分享本文到朋友圈
←←←微信扫描二维码,即可将本帖分享到朋友圈
每日前两次分享可获得威望奖励



对本帖内容的看法? 我要点评

顶部
[充值威望,立即自动到帐] [VIP贵宾权限+威望套餐] 另有大量优惠赠送活动,请光临充值中心
充值拥有大量的威望和最高的下载权限,下载站内资料无忧
 

精彩通信图库联通混改:中国电信有望入股 核心员工可持股
联通混改:中国电信有望入股.
《2017年通信行业薪酬状况报告和展望》发布,助力您了解行业薪酬状况
《2017年通信行业薪酬状况报.
【过劳死】通信人,熬夜加班,英年早逝!心疼,一路走好。
【过劳死】通信人,熬夜加班.
领导请善待我们这群苦逼的通信工程师吧?。?!
领导请善待我们这群苦逼的通.
软件无线电 SDR技术原理解析 USRP收发原理
软件无线电 SDR技术原理解析.

当前时区 GMT+8, 现在时间是 2018-7-7 06:15:49
渝ICP备11001752号  六合彩论坛  本站统一服务邮箱:[email protected]


Processed in 0.018275 second(s), 12 queries , Gzip enabled

清除 Cookies - 联系我们 - 六合彩论坛 - 六合彩论坛 - 通信招聘网 - 六合彩论坛
  • 如何防范移动支付陷阱 警惕免费WiFi 2019-02-04
  • 因滑门存隐患 现代汽车召回2339辆起亚嘉华汽车 2019-01-30
  • 学习贯彻落实十九大精神 2019-01-30
  • 5G到底哪里好?这些体验告诉你 2019-01-17
  • 努力为人类作出新的更大贡献——八论学习贯彻党的十九大精神 2019-01-17
  • 林海起诉海底捞侵权 对方回应:已停止播放其音乐作品 2019-01-17
  • 【改革·印记——看中国发展】老民警老照片讲述公安事业的几十年变迁 2019-01-08
  • 科学家教人工智能诊断脑癌 2019-01-08
  • 许维鸿:贫困县摘了帽,人力资源得跟上 2019-01-07
  • [酷]此文已经把马克思理论、边际理论、人类需求层次理论、生物学理论、心理学理论、社会管理学理论等理论在哲学层面完美融合了! 2019-01-07
  • 5月份国民经济数据发布:中国经济持续稳中向好 2018-12-23
  • 牵手中东,日照谱写“开放活市”新篇章 2018-12-23
  • 科普中国形象大使、北京大学地球与空间科学学院研究员王玲华做客人民网 2018-12-20
  • 端午小长假高速公路整体运行平稳 雨天事故多发 2018-12-15
  • 一周新疆新闻图片扫描(6.2——6.8) 2018-12-15
  • 226| 577| 549| 145| 149| 858| 316| 111| 765| 720|