excel用VBA插入列号

有时候为了做数据透视，但是列很多，看起来眼花，不如插入列号来的方便

比如第一列“序号”变成“A__序号”,27列变为AA开头，依次类推。

Private Sub 插入列号()
i = 1
Do Until Cells(1, i) = ""
Cells(1, i) = Fun_GetEngName(Cells(1, i).Column) & "__" & Cells(1, i)
i = i + 1
Loop
End SubPublic Function Fun_GetEngName(ByVal argColumn As Integer) As StringDim strEngName As StringDim iNum, iMod As IntegeriNum = argColumn \ 26iMod = argColumn Mod 26If (iMod = 0) ThenIf (iNum = 1) ThenstrEngName = Chr(90)ElsestrEngName = Chr(65 + iNum - 2) + Chr(90)End IfElseIf (iNum = 0) ThenstrEngName = Chr(65 + iMod - 1)ElsestrEngName = Chr(65 + iNum - 1) + Chr(65 + iMod - 1)End IfEnd IfFun_GetEngName = strEngName
End Function

对应的，做了还原，“A__序号”变成“序号”

Private Sub 删除列号()
i = 1
Do Until Cells(1, i) = ""
If i < 27 Then
If Mid(Cells(1, i), 2, 2) = "__" Then
Cells(1, i) = Mid(Cells(1, i), 4, 999)
End If
End If
If Mid(Cells(1, i), 3, 2) = "__" Then
Cells(1, i) = Mid(Cells(1, i), 5, 999)
End If
If Mid(Cells(1, i), 4, 2) = "__" Then
Cells(1, i) = Mid(Cells(1, i), 6, 999)
End If
i = i + 1
Loop
End Sub

excel用VBA插入列号相关推荐

Excel 2003 VBA编程参考
Excel 2003 VBA编程参考关于作者 Paul Kimmel Paul Kimmel于1990年创立了Software Conceptions公司,并从那时开始设计和创建软件以及编写计算机图 ...
Excel与VBA编程中的常用代码
Excel与VBA编程中的常用代码用过VB的人都应该知道如何声明变量,在VBA中声明变量和VB中是完全一样的! 使用Dim语句 Dim a as integer '声明A为整形变量 Dim a '声 ...
《Excel与VBA开发》一书上市时间
如果没有意外的话,<Excel与VBA开发>一书在9月初应该就可以上市.
【Excel】VBA批量修改文件名
Excel:VBA批量修改文件名 Dim filePath As Variant '定义filepath为变量 Dim obj As Object '定义obj为变量对象 Dim fld, ff, g ...
excel 2007 vba与宏完全剖析_Excel宏VBA小技巧系列 | 分段加合
写在前面的话知识产权算是一个盛产数据的行业.专利啊商标啊著作啊,都有著录项目.我们常说的专利分析.产业导航.企业导航.产业预警.竞争情报.技术综述.知识产权评议等等,常规操作之一就要先处理著录项目 ...
【Monkey Run】Excel编程 VBA
Excel编程 VBA 天气如此舒适,装B逐渐减少,所以最近的blog输出一直停滞不前.然而最近一直忙于Excel编程,觉得也有点从0到1的学习创造过程,有必要总结记录下.具体的VBA编程知识可以借鉴 ...
苦学Excel、VBA，工作效率依旧低下？你该认识这个新工具了
到底是谁的错? " 996......998......1000......",抬头望着办公室唯一一盏亮着的灯,再低头看看PC端,成百上千的excel数据表单,你内心烦闷,似乎有话 ...
使用Excel的VBA简单语句处理循环、判断等操作
什么是VBA VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,主要能用来扩展Windows的应用程序功能,特别是Microsoft Offi ...
Excel宏(VBA)类模块的创建与调用
Excel宏VBA类模块的创建与调用 1 类模块的介绍 2 为什么要使用类模块 3 如何创建类模块 4 如何调用类模块 5 代码 1 类模块的介绍 2 为什么要使用类模块 3 如何创建类模块类模块的 ...

excel用VBA插入列号

excel用VBA插入列号相关推荐

最新文章

热门文章