修改代码符合增加、减少列，不影响取值，谢谢

zhycl · 发表于 2022-12-18 19:16

下图为现用表格样式，用数组取数见代码

With Sheets("台账汇总")
nRow5 = .Range("a" & .Rows.Count).End(3).Row
tzhz = .Range("a6:f" & nRow5)
End With

但是如果后期再中间插入一列，取到的数值就不对了，能改成什么代码，就不会因为插入列或者删除列，而影响取值呢，如下图，增加了一列。

在XCVB · 发表于 2022-12-18 20:58

增加列获取即可。
With Sheets("台账汇总")
  nRow5 = .Range("a" & .Rows.Count).End(3).Row
  nCol=.cells(3,columns.count).end(xltoleft).column
  tzhz = .Range(.cells(6,1),cells(nrow5,nCol)
End With

在XCVB · 发表于 2022-12-18 21:40

增加自动获取列。
With Sheets("台账汇总")
  nRow5 = .Range("a" & .Rows.Count).End(3).Row
  nCol=.cells(3,columns.count).end(xltoleft).column
  tzhz = .Range(.cells(6,1),.cells(nRow5,nCol))
End With

582766 · 发表于 2022-12-18 21:42

a = Cells(2, 1).End(xlToRight).Column 动态获取列号

582766 · 发表于 2022-12-18 21:58

这样x = .Cells(3, Columns.Count).End(xlToLeft).Column

zhycl · 发表于 2022-12-21 12:45

在XCVB 发表于 2022-12-18 20:58
增加列获取即可。
With Sheets("台账汇总")
nRow5 = .Range("a" & .Rows.Count).End(3).Row

不好意思，我没表述清楚，我想得到的结果是：在原表内随意插入或者删除列，仍能保持原数组的值不变。谢谢
举例：
1.原表中我从A、B、C三列取值到G、H、I三列。

2.因为需要我从B和C列中间插入了一列，而后在H和J列之间插入了一列，形成如下，如何写出来的代码，取值、赋值可以保持不受插入或者删除列的影响。

gwjkkkkk · 发表于 2022-12-21 15:18

用字典定位，自动匹配，没有附件只能跟你这么说。

zhycl · 发表于 2022-12-21 17:04

gwjkkkkk 发表于 2022-12-21 15:18
用字典定位，自动匹配，没有附件只能跟你这么说。

工作簿1.rar (18.25 KB, 下载次数: 3)

示例做好了，请指教，谢谢

nicleyuan · 发表于 2022-12-21 17:30

本帖最后由 nicleyuan 于 2022-12-21 17:33 编辑

图片.png

nicleyuan · 发表于 2022-12-21 17:35

这论坛，为啥上传代码就要审核？啥机制？

		自动登录	找回密码
密码			免费注册

[求助] 修改代码符合增加、减少列，不影响取值，谢谢