☰

Excel: コピーしたセルを挿入し、値のみを貼り付ける...その一部

tag-icon • tag-icon microsoft-excel macros
Excel: コピーしたセルを挿入し、値のみを貼り付ける...その一部

私はここで Excel の専門家を探していますが、私が尋ねていることは不可能かもしれません。もともと、コピーしたセルを挿入して下に移動した後に値を貼り付けることができるマクロを探していました。最終的に ChatGPT に適切な質問をして、正常に機能するマクロを吐き出すことができました。参考までに:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    If Not Intersect(Target, Sh.Cells) Is Nothing Then
        If Application.CutCopyMode = xlCopy Then
            If Target.PasteSpecial(Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False) Then
                Application.CutCopyMode = False
            End If
        End If
    End If

    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

しかし、価格設定などの数式を保持するには、一部のセルがまだ必要であることに気付きました。以下に、例として部品の写真を添付し​​ました。これは、「Standard Wands」という見出しで強調表示されています。ボックスで囲まれたアウトラインを使用して、列 A から E の値のみを貼り付ける必要があります。値ではなく数式を貼り付けるには、列 F から I が必要です。

標準ワンド

ポイントは、このデータを取得して別のシートに貼り付け、アイテムの説明が部品番号に基づいて更新される一方で、コストは数式のままにすることです。添付の​​「アイテム、数量、部品番号、説明」などの見出しが付いた画像を参照してください。

品目、数量、部品番号、説明...

関連情報