初学乍练：数字列号与字母列号的转换、合并相同单元格

水刀梁

数字列号与字母列号的转换（分享主题），初学的小白们可以把需要的内容发在下面，我们共同讨论学习啊实在解决不了，再去麻烦大师们出手就是了。
昨天在论坛看到蓝桥老师说个注册10年的EH新人，对我触动很大，毕竟拿来主义是要给别人添麻烦的，尤其是大师们本身很忙，却还是抽时间为大家答疑解惑，本身就已经是高风亮节了，怎么能什么鸡毛蒜皮的小事都去麻烦大师出手呢，嘿嘿，而且自己不研究、不进步，没人替你研究、帮你进步。
废话少说，代码献上：

Sub lie1a() '根据数字列号得字母列号
Dim shuzi As Integer
shuzi = InputBox("请输入数字列号")
zimu = Left(Replace(Cells(1, shuzi).Address, "$", ""), Len(Replace(Cells(1, shuzi).Address, "$", "")) - 1)
MsgBox "您输入的数字列号是：" & shuzi & vbCrLf _
    & "所对应的字母列号是：" & zimu
End Sub

Sub liea1() '根据字母列号得数字列号
Dim zimu As String
zimu = InputBox("请输入字母列号")
shuzi = Columns(zimu).Column
MsgBox "您输入的字母列号是：" & zimu & vbCrLf _
    & "所对应的数字列号是：" & shuzi
End Sub

分享代码，希望对和我一样刚入门的小白们有用，虽然简单，却是自己一行一行敲上去的
ExcelVBA数字列号与字母列号的转换 ExcelVBA数字列号与字母列号的转换.rar (14.27 KB, 下载次数: 43)

2019-7-18 12:42 上传

点击文件名下载附件

补发：
ExcelVBA：合并相同单元格（字母列号） ExcelVBA：合并相同单元格（字母列号）.rar (12.26 KB, 下载次数: 32)

2019-7-18 12:39 上传

点击文件名下载附件

水刀梁

占个位，学习心得，分享给和我一样的小白们，虽然简单得让大师大神们可怜，但我等小白的确在努力ing……

补充内容 (2019-7-22 18:29):
学习类模块应用，做了个投票统计，需要的小伙伴可以看看
http://club.excelhome.net/thread-1489861-1-1.html
(出处: ExcelHome技术论坛)

Demons111

帮忙顶起，初学者的学习贴

水刀梁

谢谢捧场，么么哒

景然

这个适合我学

乾坤若木

谢谢了，受教！