用VBA分类汇总

zjzyj · 发表于 2023-2-24 14:02

.Range("A1").CurrentRegion.Offset(1).ClearContents 把这一行
改为:
.Range("A1").CurrentRegion.Offset(1).Resize(, 4).ClearContents

haovogue · 发表于 2023-2-24 15:27

zjzyj 发表于 2023-2-24 14:02
.Range("A1").CurrentRegion.Offset(1).ClearContents 把这一行
改为:
.Range("A1").CurrentRegion.Offs ...

E，F，G，H，4列内容不清除

haovogue · 发表于 2023-2-24 16:50

zjzyj 发表于 2023-2-24 14:02
.Range("A1").CurrentRegion.Offset(1).ClearContents 把这一行
改为:
.Range("A1").CurrentRegion.Offs ...

改了，还是不行，E，F，G，H，4整列内容不清除

zjzyj · 发表于 2023-2-24 17:25

haovogue 发表于 2023-2-24 16:50
改了，还是不行，E，F，G，H，4整列内容不清除

你这句话我的理解上存在歧义，“不清除”的意思是“不会清除”呢？还是“不要清除”呢？

haovogue · 发表于 2023-2-24 18:55

zjzyj 发表于 2023-2-24 17:25
你这句话我的理解上存在歧义，“不清除”的意思是“不会清除”呢？还是“不要清除”呢？

不要清除这4列内容

zjzyj · 发表于 2023-2-24 19:36

haovogue 发表于 2023-2-24 18:55
不要清除这4列内容

.Range("A1").CurrentRegion.Offset(1).Resize(, 4).ClearContents
这个就是只清除前4列，后面的列是不会清除的。你按这个改就可以了

Resize(, 4)的意思是缩小为4列

haovogue · 发表于 2023-2-24 20:04

zjzyj 发表于 2023-2-24 19:36
.Range("A1").CurrentRegion.Offset(1).Resize(, 4).ClearContents
这个就是只清除前4列，后面的列是不 ...

点击按钮后，后面的4列的数字会向下移位

zjzyj · 发表于 2023-2-24 21:41

haovogue 发表于 2023-2-24 20:04
点击按钮后，后面的4列的数字会向下移位

应该是由排序引起

haovogue · 发表于 2023-2-24 22:06

zjzyj 发表于 2023-2-24 21:41
应该是由排序引起

点击按钮，后面四列是公式跟随变化。

zjzyj · 发表于 2023-2-25 14:08

haovogue 发表于 2023-2-24 22:06
点击按钮，后面四列是公式跟随变化。

排序改为在数组中完成，不在sheet表上排序了。附件更新在6楼了

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

[求助] 用VBA分类汇总