求助如何在不变动列的情况看下，保持后面对计算不出错？

Excle小白菜

各位大佬好，学生请教一个问题，做一个财务报表，为何在插入列的时候，后面的数据都变动了？



有一位大佬可以做，也做出来了效果，但是金额要求我付他500元，学生没钱。


所以来论坛请教各位大佬，感谢。


附件及效果视频均 在压缩包

高个子

原因很简单，indirect里面的b:b是固定的，没变动

free720302

高个子 发表于 2022-5-13 20:32
原因很简单，indirect里面的b:b是固定的，没变动

老师请明示,怎么改动列号,B列是人名固定,后面V/W/X三列用ADD函数相对引用因插入列自动变动列号?

高个子

free720302 发表于 2022-5-13 21:01
老师请明示,怎么改动列号,B列是人名固定,后面V/W/X三列用ADD函数相对引用因插入列自动变动列号?

像这样的需求适合VBA，不适合函数。500的价格我估计是用VBA写自定义函数的

Excle小白菜

高个子 发表于 2022-5-13 21:12
像这样的需求适合VBA，不适合函数。500的价格我估计是用VBA写自定义函数的

不清楚呢，求大佬支招。

Excle小白菜

高个子 发表于 2022-5-13 20:32
原因很简单，indirect里面的b:b是固定的，没变动

我取消了锁定，也不行。

tchh666

Excle小白菜 发表于 2022-5-13 22:49
我取消了锁定，也不行。

想插入列的时候，选中1-12月工作表，整个都插入，就不会错位了

准提部林

項目固定//就一律用定義名稱,
不管怎移(只要不刪除該列). 都劍在人在//
Sub TEST_A1()
Application.ScreenUpdating = False
Application.Calculation = xlManual
For i = 1 To 12
    With Sheets(i & "月")
         .Select
         Range("$B:$B").Name = "'" & ActiveSheet.Name & "'!姓名"
         Range("$O:$O").Name = "'" & ActiveSheet.Name & "'!应发工资"
         Range("$R:$R").Name = "'" & ActiveSheet.Name & "'!专项扣除"
         Range("$T:$T").Name = "'" & ActiveSheet.Name & "'!个人所得税"
         With Range("$U:$W")
              .Replace "B:B", "姓名", Lookat:=xlPart
              .Replace "o:o", "应发工资"
              .Replace "s:s", "专项扣除"
              .Replace "t:t", "个人所得税"
         End With
    End With
Next i
Application.Calculation = xlAutomatic
End Sub

zpy2

超级列表也不错的。。。

free720302