有時候為了做數據透視，但是列很多，看起來眼花，不如插入列號來的方便

比如第一列“序號”變成“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插入列号的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。