不是答案，只是一个有用的补充: 作为免费赠品，我刚刚发明了(嗯……记得不能用调整由Lolo发布的代码)RemoveLineOrBlock宏。享受吧!

Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports EnvDTE90a
Imports EnvDTE100
Imports System.Diagnostics

Public Module RemoveLineOrBlock

    Sub RemoveLineOrBlock()
        Dim selection As TextSelection = DTE.ActiveDocument.Selection
        Dim lineNumber As Integer
        Dim line As String

        If selection.IsEmpty Then
            selection.StartOfLine(0)
            selection.EndOfLine(True)
        Else
            Dim top As Integer = selection.TopLine
            Dim bottom As Integer = selection.BottomLine

            selection.MoveToDisplayColumn(top, 0)
            selection.StartOfLine(0)

            selection.MoveToDisplayColumn(bottom, 0, True)
            selection.EndOfLine(True)
        End If

        selection.LineDown(True)
        selection.StartOfLine(vsStartOfLineOptions.vsStartOfLineOptionsFirstColumn,True)

        selection.Delete()

        selection.MoveToDisplayColumn(selection.BottomLine, 0)
        selection.StartOfLine(vsStartOfLineOptions.vsStartOfLineOptionsFirstText)

    End Sub

End Module

在visual studio代码(WebMatrix)中:

向下复制行:Shift + Alt +向下

复制线:Shift + Alt +向上

删除行:Ctrl + Shift + k

Visual Studio Code: 2020年5月(版本1.46) Shift +向上/向下箭头:复制代码行

下面是一个基于Wael发布的链接的宏，但在以下方面进行了改进:

稍短的 稍快 评论:) 以"///"开头的行。 可以用一次撤消撤消吗

Imports System
Imports EnvDTE
Imports EnvDTE80

Public Module Module1

    Sub DuplicateLine()
        Dim sel As TextSelection = DTE.ActiveDocument.Selection
        sel.StartOfLine(0) '' move to start
        sel.EndOfLine(True) '' select to end
        Dim line As String = sel.Text
        sel.EndOfLine(False) '' move to end
        sel.Insert(ControlChars.NewLine + line, vsInsertFlags.vsInsertFlagsCollapseToEnd)
    End Sub

End Module

有一个免费的扩展，你可以下载这里，让你复制行无需替换剪贴板的内容。

默认情况下，它被绑定到Alt + D，但你可以通过点击工具->选项->环境->键盘将其更改为任何你想要的。在搜索框中输入“复制”，然后查找“编辑”。DuplicateSelection”，并编辑快捷方式为任何你想要的。我更喜欢Ctrl + D与其他编辑器保持一致。

虽然我意识到这不是一个键盘快捷键，但我想我应该添加这个，因为它不需要使用剪贴板，可能会帮助到一些人。

突出显示要复制的行。 按控制，鼠标单击突出显示的文本，并拖动到您想要去的地方。它将复制突出显示的文本。