根据行值

Question

Work FIle

你好，

我花了好几天试图找出解决方案而且我已经用尽了我的知识。我会给出我目前的代码但是没有一个，因为所有500个都不起作用。

我希望在填充后将公式转换为值，或者将行值P7W2转换为每周更改并位于C1的行值。这些值位于D列中，但我想根据行值从列E到Q进行粘贴。

我不认为复制和粘贴方法有效，因为它似乎必须粘贴到另一个地方，但我只是想将这些公式转换为行。

任何人都可以提供有关我最佳选择的见解吗？

尝试1

Public Sub CopyRows()
' Find the last row of data
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
' Loop through each row
For x = 2 To FinalRow
    ' Decide if to copy based on column D
    ThisValue = Cells(1, 3).Value
    If ThisValue = Range("D") Then
        Cells(x, 5).Resize(1, 18).copy
        Cells(ThisValue, 1).Select
         ActiveSheet.Paste
        NextRow = Cells(Rows.Count, 1).End(xlUp).Row

    End If
Next x

End Sub

尝试2

Sub Button1_Click()
Worksheets("Item Class Data").Activate
Range("C1").Select
ActiveSheet.End(xlDown)).Select
ActiveCell.Value = ActiveCell.Value
End Sub