Ctrl + D为我工作在VS2012与Resharper。这是Resharper的热键。

在Visual Studio 2022中

Ctrl + E, V

在Visual Studio 2019中

Ctrl + D

在Visual Studio 2017 (v15.6及以后版本)中

Ctrl + D

在Visual Studio 2017 (pre v15.6)

(编辑)这个功能现在是内置在VS2017: Ctrl + E, V复制一行，如果没有选择，或重复选择。你可以将它分配给不同的键组合，或者在菜单中找到它:

有关更多信息，请参阅此参考资料。

Pre VS2017，内置方法使用剪贴板

正如@cand提到的，你可以按Ctrl + C;Ctrl + V。

如果没有选择，Ctrl + C将复制该行。

宏观解决方案(VS2017前期)

如果你想实现一个更完整的解决方案，也许是创建一个更简单的键盘快捷键，或者你不想影响剪贴板，请参阅以下指南:

Visual Basic: Imports System Imports EnvDTE Imports EnvDTE80 Imports System.Diagnostics Public Module DuplicateLastLineModule Sub DuplicateLine() Dim line As String DTE.ActiveDocument.Selection.StartOfLine(0) DTE.ActiveDocument.Selection.EndOfLine(True) line = DTE.ActiveDocument.Selection.Text DTE.ActiveDocument.Selection.EndOfLine() DTE.ActiveDocument.Selection.NewLine() DTE.ActiveDocument.Selection.StartOfLine(0) DTE.ActiveDocument.Selection.Text = line End Sub End Module To create the macro, just go to the macro explorer ("Tools->Macros->Macro Explorer" or Alt+F8) and copy paste the code in a new module. Now just assign a keyboard shortcut to it: go to Tools->Options... under Environment, click Keyboard in the "Show Commands Containing" textbox, enter "duplicate" (this according to the name you gave the module.) you should now see the macro in the list below choose "Text Editor" from the "Use new shortcut in" list set focus in the "Press shortcut keys" textbox and hit the combination on the keyboard you wish to use for it (Ctrl+Shift+D in my case) hit the "Assign" button you should now see the shortcut in the "Shortcuts for selected command" textbox hit the OK button And that's it. Enjoy!

简单的Ctrl + C;Ctrl + V，检查一下 链接。只要你不选择任何文本，当你按Ctrl+C时，这将复制光标所在的行。

Ctrl + D是VS 2017 v15.6中引入的一个新快捷键，它的作用似乎和Ctrl + E, V完全一样

Ctrl + D将复制光标所在的行，并将其插入到焦点行的正下方。如果希望复制一组特定的代码，只需在调用duplicate code命令之前选择要复制的代码部分。

它不会影响你的剪贴板

源

我一直在使用Wael发布的宏:Visual Studio的重复行命令，但它一周前就停止工作了，我猜是因为Windows更新。 我是正确的，在2014年2月，宏在VS2010(和2008显然)已经被禁用。

要解决这个问题，您要么必须卸载安全更新，要么向配置文件中添加一行代码，如下所示。

在64位的Windows机器上，这些文件的默认路径是:

C:\Program Files (x86)\Common Files\Microsoft Shared\VSA\9.0\VsaEnv\vsaenv10.exe.config C:\Program Files (x86)\Microsoft Visual Studio 10.0\Common7\IDE\devenv.exe.config .．. < >配置 运行时> < < AllowDComReflection启用= " true " / > .．.

你必须运行你的文本编辑器与管理权限，否则它不会工作!希望这能帮助那些突然有宏功能的人。

如果你喜欢使用CTRL+ALT+UP或CTRL+UP+DOWN复制eclipse样式的行(或块)，下面我发布了用于此目的的宏:

Imports System
Imports EnvDTE
Imports EnvDTE80
Imports System.Diagnostics

Public Module DuplicateLineModule
    Sub DuplicateLineDown()
        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

        lineNumber = selection.TopLine
        line = selection.Text

        selection.MoveToDisplayColumn(selection.BottomLine, 0)
        selection.EndOfLine()
        selection.Insert(vbNewLine & line)
    End Sub
    Sub DuplicateLineUp()
        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

        lineNumber = selection.BottomLine
        line = selection.Text

        selection.MoveToDisplayColumn(selection.BottomLine, 0)
        selection.Insert(vbNewLine & line)
        selection.MoveToDisplayColumn(lineNumber, 0)
    End Sub
End Module