excel - 在组合框中永久添加值

Question

我有这部分代码，在运行创建新列的宏后，在组合框中添加最后一列字母

ColumnLetter = Split(Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Cells.Address(5, 0), "$")(0)

Worksheets("Sheet1").CB1.AddItem ColumnLetter

效果很好，但是一旦我关闭文件，记录就会消失，是否存在永久保存这些数据的解决方案？

Answer 1

谢谢建议，我是这样解决的

Private Sub Workbook_Open()

        Dim lastCol As Integer
        Dim ColName As String
        Set male = Worksheets("Male")
        lastCol = male.Cells(5, male.Columns.Count).End(xlToLeft).column
        male.CB1.Clear
        For i = 7 To lastCol
            ColName = Replace(Split(Columns(i).Address, ":")(0), "$", "")
            male.CB1.AddItem ColName
        Next i
End Sub