隐藏列求和

nongminku125

各位大佬：
      我想随意隐藏部分列，之后对可见的列数的单元格求和，=SUMPRODUCT((--(CELL("width",$C$3:$AF$3)>0))*C4:AF4)，但是数据不能求和，这个公式有什么问题吗？需要怎么修改啊！！！

part98

1. =SUMPRODUCT((CELL("width",OFFSET($Z$3,,COLUMN($A:$G)-1))>0)*Z4:AF4)

复制代码

1. =SUMPRODUCT((CELL("width",OFFSET($C$4,,COLUMN($C:$AF)-3))>0)*C4:AF4)

复制代码

不用辅助列就要用offset

jivy1212

1. =SUMPRODUCT((CELL("width",OFFSET(Z3,,{0,1,2,3,4,5,6}))>0)*Z4:AF4)

复制代码

良良

AJ4=SUM(IF(CELL("width",OFFSET(Z4,,N(IF(1,COLUMN(A:G)-1)))),Z4:AF4))
AK4=SUM(IF(CELL("width",OFFSET(C4,,N(IF(1,COLUMN(A:AD)-1)))),C4:AF4))
三键。

fankairong

或者换个思路，如果将表转置，以隐藏行的方式实现则用Subtotal或Aggregate函数都可以实现想要的效果。尤其当数据量大的时候可以避免用数组函数的效率问题。

niko88819

AJ4   =SumVisibleColumns(C4:AF4)

1. Function SumVisibleColumns(rng As Range) As Double
   
2.     Dim sumRange As Range
   
3.     Dim cell As Range
   
4.     Dim visibleColumnsSum As Double
   
5.     Set sumRange = rng
   
6.     visibleColumnsSum = 0
   
7.     For Each cell In sumRange.Cells
   
8.         If cell.EntireColumn.Hidden = False Then
   
9.             visibleColumnsSum = visibleColumnsSum + cell.Value
   
10.         End If
    
11.     Next cell
    
12.     SumVisibleColumns = visibleColumnsSum
    
13. End Function

复制代码

mykitami

niko88819 发表于 2024-6-29 15:39
AJ4   =SumVisibleColumns(C4:AF4)

太强大了。
请问尼可老师，你这个效果是怎么弄出来的，向你学习一下
并且，点击下面的复制后，就直接复制了。

niko88819

mykitami 发表于 2024-6-29 16:03
太强大了。
请问尼可老师，你这个效果是怎么弄出来的，向你学习一下
并且，点击下面的复制后，就直接复 ...

mykitami   老师 您说的是这个吗？  把代码装在 (粘贴) 里面就可以了

mykitami

niko88819 发表于 2024-6-29 16:10
mykitami   老师 您说的是这个吗？  把代码装在 (粘贴) 里面就可以了

对，我指的就是这个
代码是通过什么写的？或者什么编辑器？是不是应该有个模板？
我羡慕好久了，看到很多老师都在用这种方式回复

niko88819

Notepad ++
https://www.baidu.com/baidu.php? ... p;wd=&bc=110101


其他老师我真的不知道了，他们还有彩色字呢？