如何设置变量

乄蜗牛

例表格式如上图所示。

我现在在编写VBA，要实现表格的自动化处理：
表内为多个方向，每个方向分现状与目标，均包含100G、40G、10G、2.5G、GE，5种颗粒度，编写VBA时，会用到各列列号来表述某个方向的颗粒度位置
例如：“连接-至A-现状”的100G 用cells(1,"I")表示；“连接-至B-目标”的GE用cells(1,"AJ")表示。

由于表格模板会变动，后续可能会插入、删除部分列项，插入或删除列项后，导致cells(1,"I")不在对应原有方向的100G，cells(1,"AJ")不再对应原方向GE，导致VBA中引用单元格发生错误。
现求助各位老师 一个问题：
如何提前定义变量或预处理表格，使得在表格插入、删除部分列项时，能够尽可能的减少VBA代码的修改。
感谢各位老师提供以下思路

过客fppt

可以定义100G为range，然后用find方法在对应区域中查找100G返回一个range，

乄蜗牛

截止目前，想到的办法是：
第一步：为例表中每列设置一个对应的全局变量，将这些变量设置在一个列表中，
第二步：在引用例表中单元格进行计算时，找到单元格所在列，再找出该列列号对应的变量
第三步：编写一个列表查询函数，查询变量在列表中位置，函数返回值就为列号
后面再插入或删除列时，只需更新列表中的变量，就能实现列号的自动更新

但是这个方法，缺点就是：例表有多少列就要设置多少个变量
其他老师有没有更简单有效的方法实现

过客fppt

楼主好，你的意思是每次新增新列的时候，想要重新获取所有类型的所有颗粒的列序号吗？

feilanga

2行是大表头（有合并单元格），3行是对应的小表头，我可能会考虑代码运行后读取整个数据到数组，大表头数组内做填充处理，保证每一列都有大表头，然后大表头连接小表头作为关键字，列号作为值存入字典。之后从字典中根据关键字读取对应的列号。

过客fppt

feilanga 发表于 2024-1-1 22:17
2行是大表头（有合并单元格），3行是对应的小表头，我可能会考虑代码运行后读取整个数据到数组，大表头数组 ...

感觉这样挺好的

乄蜗牛

过客fppt 发表于 2024-1-1 18:19
楼主好，你的意思是每次新增新列的时候，想要重新获取所有类型的所有颗粒的列序号吗？

是的，在新增插入列之后，更新颗粒度列序号

乄蜗牛

feilanga 发表于 2024-1-1 22:17
2行是大表头（有合并单元格），3行是对应的小表头，我可能会考虑代码运行后读取整个数据到数组，大表头数组 ...

“大表头连接小表头作为关键字列号作为值存入字典”

这个处理办法我也想到过，但是“列号作为值存入字典”，有点不知道怎么处理。使用这种办法，我不知道如何保证在插入和更新列，修改字典的键之后，作为值的列号能随着更新

乄蜗牛