1

誰か助けてください。以下のモジュールを実行すると正常に動作しますが、値ではなくセル (数式) の内容が貼り付けられます。値の特殊な貼り付けであることは知っていますが、どこを調整すればよいかわかりません。また、A:K にまたがる変数テーブルから行をコピーしてから、identicle テーブルに貼り付けたいと思います。明確でない場合は申し訳ありませんが、コードが下に表示される理由がわかりません。サブから開始:

Sub armine_profitTEST()
    Dim r As Long, endRow As Long, pasteRowIndex As Long

    endRow = 500 ' of course it's best to retrieve the last used row number via a function
    pasteRowIndex = 5

    For r = 1 To endRow 'Loop through sheet1 and search for your criteria

        If Cells(r, Columns("F").Column).Value = "Armine" Then 'Found
            'Copy the current row
            Rows(r).Select
            Selection.Copy

            'Switch to the sheet where you want to paste it & paste
            Sheets("Armine").Select
            Rows(pasteRowIndex).Select
            ActiveSheet.Paste

           'Next time you find a match, it will be pasted in a new row
            pasteRowIndex = pasteRowIndex + 1

           'Switch back to your table & continue to search for your criteria
            Sheets("Summary").Select
        End If
    Next r
End Sub
4

1 に答える 1

1

使用するだけpasteSpecialです：

Dim xRng As Microsoft.Office.Interop.Excel.Range

xRng.PasteSpecial(Microsoft.Office.Interop.Excel.XlPasteType.xlPasteFormulas)
于 2013-02-28T12:58:59.270 に答える