EXCEL的公式怎么写成代码自动填入单元格

EXCEL的公式怎么写成代码自动填入单元格

只能实现公式自动填充，没办法实现代码形式的自动填入单元格。操作方法如下：


1.在填写单元格时，之前的连续数据区域要大于或等于4行。

2.公式填写区域，公式形式要相同，相对引用的单元格可以不同。如图：

3.在A6单元格区域填写入相应的数字，例如填写入69。

4.确定过后，在C3中就会自动生成公式==A6*B6，并且显示计算结果207。

5.继续往下填写A列，C列中就会自动生成公式，并显示计算结果了。
6.但是A列中使用填充柄往下拖动填充的，C列中不会自动填充公式并计算，如图：

公式前面嵌套一个IF+LEN函数就可以了....
=IF(LEN(C4>0),VLOOKUP($C4,清单!$B:$D,2,0),"")追问代码呢？

e4 写=vlookup($C4,清单!$B:$D,COLUMN（）-3，0)
然后往右拖就行了。 column()表示列数，因为是e4，所以是5。但是我们要返回的是第2行，所以-3。
你可以自己试一下
B-D只有3列，返回值最大就是3. 不知道你G、H、I、J、K要返回什么..

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <= 1 Then
'选中的单元格是否只有一个，防止一次对多个单元格复制、删除等操作，容易导致失误

If Target.Column = 3 Then
'光标在第3列

Target.Offset(0, 1).FormulaR1C1 = "=VLOOKUP(RC[-1],清单!C[-2]:C,2,0)"
Target.Offset(0, 2).FormulaR1C1 = "=VLOOKUP(RC[-2],清单!C[-3]:C[-1],3,0)"
End If
End If
End Sub追问我就是为了防止删除公式才想用代码的。
其它公式是不是直接套进去？追答一次对一个单元格修改,公式可以自己录制