EXCEL如何快速求隔列之和

Answer 1

例如第一行，在F1输入
=SUM(A1:E1*(MOD(COLUMN(A1:E1),2)=1))
按shift+ctrl+enter组合键
以上是求A1：E1的奇数列的和
如果是求偶数列，则把余数改为0（求B、D、F、H。。。。。。的各）
=SUM(A1:E1*(MOD(COLUMN(A1:E1),2)=0))
按shift+ctrl+enter组合键

Answer 2

sub
选中4倍数列()
dim
i,
n
application.screenupdating
=
false
n
=
inputbox("输入需要选择多少列",
,
4)'此处默认选择4列
即d
h
l
p
columns("a:c").select
selection.entirecolumn.hidden
=
true
for
i
=
1
to
n
selection.offset(0,
4
*
i).entirecolumn.hidden
=
true
next
range(columns(1),
columns(4
*
n)).select
selection.specialcells(xlcelltypevisible).select
for
i
=
1
to
4
*
n
cells.columns(i).hidden
=
false
next
end
sub