• 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 - 联系我们 - 六合彩论坛 - 六合彩论坛 - 通信招聘网 - 六合彩论坛
  • 郑州一位妈妈考场外轻捻佛珠 2018-12-08
  • 尹卓:055型将批量生产 今年完全有可能下水两艘 2018-12-05
  • 细化规定防止再现“问题跑道” 2018-12-02
  • 【学习时刻】北交大马院院长韩振峰:高校思想政治工作必须牢牢把握三大根本问题 2018-11-22
  • 定格——西部网图片频道 2018-10-23
  • 新时代的主要矛盾是需要与发展不充分不平衡的矛盾,发展不充分的原因在于历史的欠账,近代的落后,发展的不平衡的原因应该归功于市场经济。 2018-10-15
  • 报告:互联网平台责任设定应进一步完善 2018-10-15
  • 无视婚变传闻 王浩信晒与朋友新旧对比照秀友情 2018-10-05
  • 推进国防和军队现代化 2018-09-19
  • 公安部:一美国公民在华刑满释放后被依法遣返 2018-09-12
  • 晋世绘——黄河新闻网 2018-09-07
  • 福建省党外知识分子联谊会成立 2018-09-07
  • 毛泽东说帝国主义都是纸老虎。是有社会基础的 2018-09-01
  • 人民网评:如何熄灭长江的“生态红灯”? 2018-08-20
  • 《来自上海的女人》:王家卫的完美主义和拖延症使她夭折 2018-08-13
  • 59| 23| 947| 212| 541| 59| 496| 992| 795| 505|