有時(shí)候?yàn)榱俗鰯?shù)據(jù)透視，但是列很多，看起來(lái)眼花，不如插入列號(hào)來(lái)的方便

比如第一列“序號(hào)”變成“A__序號(hào)”,27列變?yōu)锳A開(kāi)頭，依次類(lèi)推。

Private Sub 插入列號(hào)() 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

對(duì)應(yīng)的，做了還原，“A__序號(hào)”變成“序號(hào)”

Private Sub 刪除列號(hào)() 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

總結(jié)

以上是生活随笔為你收集整理的excel用VBA插入列号的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。