复制并粘贴一个单元格,以便数据在 vlookup 后不会更改
Copy and paste a cell so that the data does not change after a vlookup
我想在 vlookup 用数据填充适当的单元格后停止工作。
B 列将包含输入到 A 列中的 material 中的股票数据。
库存会不断变化。
一旦一个单元格被 vlookup 中的数据填充,我希望它保持这种状态。
我不希望它随着股票数据的刷新而刷新,因为它们是当时相关的数据。
在 VBA 中,如@Steven Pomponio 所述,您可以将值设置为等于现有值。这意味着如果已计算公式并返回结果(或与此相关的错误),则结果将替换给定单元格中的公式。
Sub SetValues()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
With ws
fRow = .Cells(.Rows.Count, 2).End(xlUp).Row
End With
ws.Range("B1:B" & fRow).Value = ws.Range("B1:B" & fRow).Value
End Sub
我会将其分配给 Private Sub Worksheet_Activate()
事件或 Private Sub Workbook_Open()
事件。
以上代码还将考虑 B 列中的行数。
我想在 vlookup 用数据填充适当的单元格后停止工作。
B 列将包含输入到 A 列中的 material 中的股票数据。
库存会不断变化。
一旦一个单元格被 vlookup 中的数据填充,我希望它保持这种状态。
我不希望它随着股票数据的刷新而刷新,因为它们是当时相关的数据。
在 VBA 中,如@Steven Pomponio 所述,您可以将值设置为等于现有值。这意味着如果已计算公式并返回结果(或与此相关的错误),则结果将替换给定单元格中的公式。
Sub SetValues()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
With ws
fRow = .Cells(.Rows.Count, 2).End(xlUp).Row
End With
ws.Range("B1:B" & fRow).Value = ws.Range("B1:B" & fRow).Value
End Sub
我会将其分配给 Private Sub Worksheet_Activate()
事件或 Private Sub Workbook_Open()
事件。
以上代码还将考虑 B 列中的行数。