把一列公式清空，出现死机现象，请大家看看是什么问题，希望能有解决方案

guoliang_situ · 发表于 2012-10-31 18:06

我有一个5万多行的数据表（52524行），需要根据把 I 列重复的数据变为0（仅保留第一个数据）。
数据及代码在附件。

工作表行数很大的公式填充.rar (283.13 KB, 下载次数: 13)

如果有其它办法达到同样的结果，多谢大家的帮忙

问题：
1）第一次运行此代码，没有问题，再次运行此代码，则出现死机。
2）初步判断是，L,M 列填充公式后，不能清空。（我测试过，其它公式清空没有问题，这个公式清空有问题）
3）清空M列公式 =Sheets("Data_Sort").Range("L2:L" & k).FormulaR1C1 = "=IF(RC[-3]="""",0,RC[-5]&RC[-3])"
4）清空M列公式 =Sheets("Data_Sort").Range("M2:M" & k).FormulaR1C1 = "=IF(OR(RC[-4]=0,RC[-1]=""""),0,Value(IF(COUNTIF(R2C12:RC[-1],RC[-1])>1,0,RC[-4])))"

hhjjpp · 发表于 2012-10-31 23:44

h.rar (753.23 KB, 下载次数: 5)

guoliang_situ · 发表于 2012-11-1 16:31

你在工作表输入公式，然后向下填充，我知道这样做是可以的，但是，我希望用 VBA 的代码来完成

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