添加列号情况下，又不影响宏程序运行，谢谢

boy23

Excel VBA 宏程序中有以下一段代码：
'定义所有元素
elements = split（“AA、AB、AC、AD、AE、AF、AG、AH、AI、AJ、AK、AJ、AM、AN、AO”,“,”）
即：AA～AO 15个英文字母。
修改为：
elements = split（“AA、AB、AC、AD、AE、AF、AG、AH、AI、AJ、AK、AJ、AM、AN、AO……AWJ”,“,”）增加至1258个英文字母，不影响程序运行

shiruiqiang

露出一只脚，你能叫出对方的年龄吗？

boy23

shiruiqiang 发表于 2024-4-7 21:44
露出一只脚，你能叫出对方的年龄吗？

公司Excel文件不能上传或截图，请谅解。
就是字面意思，从AA～AWJ添加列顺序号，从“AO”15列号添加至AWJ

taller

boy23

taller 发表于 2024-4-8 00:36

您好！不好意思啊,
现在才有时间回复您，
请问此“子程序”在哪一阶段插入？
谢谢

taller

boy23 发表于 2024-10-19 18:52
您好！不好意思啊,
现在才有时间回复您，
请问此“子程序”在哪一阶段插入？

你的代码哪里需要用到这个列号，就把相关代码加入到你的Sub过程中

boy23

taller 发表于 2024-10-19 23:15
你的代码哪里需要用到这个列号，就把相关代码加入到你的Sub过程中

您好！
1、求助：子程序插入后出现个别错误，请问能否在附件中帮忙解决，谢谢
2、附件以上传


   Sub GetColName()
       Const S_COL = "AA" ' or 26  
       Const E_COL = "AWJ" ' or 1284
       Dim i As Long
       For i = Cells(1, S_COL).Column To Cells(1, E_COL).Column
              Debug.Print Split(Cells(1, i).Address, "$")(1)
        Next  
   End Sub