使用VBA提取函数后，会把原有的函数会覆盖掉

[](使用VBA提取函数后，会把原有的函数会覆盖掉[]([](

用代码块功能插入代码，

Sub xf()
Dim i%, k%, irow% '定义整形变量
irow = Sheets("Insufficient materials").Range("a1").CurrentRegion.Rows.Count 'irow为当前数据 表数据行数
k = 6 '因为查询数据从F4单元格开始显示，所以K赋初值4
Sheets("Insufficient").Range("b6", "f" & irow).clear '清除显示区域数值，以备显示下一次查询结果
For i = 2 To irow
If Sheets("Insufficient materials").Range("i" & i).Value < 0 Then
Sheets("Insufficient").Range("B" & k) = k - 5
Sheets("Insufficient").Range("C" & k).Value = Sheets("Insufficient materials").Range("c" & i).Value
Sheets("Insufficient").Range("D" & k).Value = Sheets("Insufficient materials").Range("d" & i).Value
Sheets("Insufficient").Range("E" & k).Value = Sheets("Insufficient materials").Range("e" & i).Value
Sheets("Insufficient").Range("F" & k).Value = Sheets("Insufficient materials").Range("i" & i).Value
k = k + 1
End If
Next
End Sub

我的解答思路和尝试过的方法

显示结果后，保留原有的单元格格式不变

如果你只是临时显示一下，那放到空白列里，不要放到原来有数据的格子里呀