VB.NET 在DataGridView中复制选中多个单元格的数据粘贴到剪切板，将剪切板的数据复制到同一个DataGridView的另外相同数量且选中的单元格中，举例事件并详细说明

好的，下面我来举例说明如何在 VB.NET 中实现在 DataGridView 中复制选中多个单元格的数据粘贴到剪切板，然后将剪切板的数据复制到同一个 DataGridView 的另外相同数量且选中的单元格中。

在这里，我们可以通过 DataGridView 的 CellMouseDown 事件来实现选中单元格并复制数据到剪切板，然后通过 DataGridView 的 CellMouseDown 或者 KeyDown 事件来实现将剪切板的数据复制到同一 DataGridView 的另外相同数量且选中的单元格中。

以下是事件代码：

' CellMouseDown 事件代码

Private Sub dataGridView1_CellMouseDown(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dataGridView1.CellMouseDown
    ' 判断是否右键单击并且选中了单元格
    If e.Button = MouseButtons.Right AndAlso e.RowIndex >= 0 AndAlso e.ColumnIndex >= 0 Then
        ' 获取选中的单元格
        Dim selectedCells As DataGridViewSelectedCellCollection = dataGridView1.SelectedCells

        ' 使用 StringBuilder 构造要复制的数据
        Dim sb As New StringBuilder()

        For Each cell As DataGridViewCell In selectedCells
            ' 将每个单元格的值添加到 StringBuilder 中，以 Tab 键分隔
            sb.Append(Convert.ToString(cell.Value) & vbTab)
        Next

        ' 将数据复制到剪切板
        Clipboard.SetText(sb.ToString())
    End If
End Sub

' CellMouseDown 或者 KeyDown 事件代码

Private Sub dataGridView1_CellMouseDown(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dataGridView1.CellMouseDown
    ' 判断是否右键单击并且选中了单元格
    If e.Button = MouseButtons.Right AndAlso e.RowIndex >= 0 AndAlso e.ColumnIndex >= 0 Then
        ' 获取选中的单元格
        Dim selectedCells As DataGridViewSelectedCellCollection = dataGridView1.SelectedCells

        ' 获取要粘贴的数据
        Dim pasteText As String = Clipboard.GetText()

        ' 按 Tab 键分隔数据
        Dim pasteData As String() = pasteText.Split(vbTab)

        ' 遍历选中的单元格，将粘贴数据逐个填入
        Dim index As Integer = 0

        For Each cell As DataGridViewCell In selectedCells
            ' 将粘贴数据逐个填入单元格
            cell.Value = pasteData(index)

            ' 将填入的单元格选中
            dataGridView1.CurrentCell = cell
            cell.Selected = True

            ' 移动到下一个粘贴位置
            index += 1

            ' 如果已经填完所有数据，则退出循环
            If index >= pasteData.Length Then
                Exit For
            End If
        Next
    End If
End Sub

Private Sub dataGridView1_KeyDown(sender As Object, e As KeyEventArgs) Handles dataGridView1.KeyDown
    ' 判断是否按下 Ctrl + V 并且选中了单元格
    If e.Control AndAlso e.KeyCode = Keys.V AndAlso dataGridView1.SelectedCells.Count > 0 Then
        ' 获取选中的单元格
        Dim selectedCells As DataGridViewSelectedCellCollection = dataGridView1.SelectedCells

        ' 获取要粘贴的数据
        Dim pasteText As String = Clipboard.GetText()

        ' 按 Tab 键分隔数据
        Dim pasteData As String() = pasteText.Split(vbTab)

        ' 遍历选中的单元格，将粘贴数据逐个填入
        Dim index As Integer = 0

        For Each cell As DataGridViewCell In selectedCells
            ' 将粘贴数据逐个填入单元格
            cell.Value = pasteData(index)

            ' 将填入的单元格选中
            dataGridView1.CurrentCell = cell
            cell.Selected = True

            ' 移动到下一个粘贴位置
            index += 1

            ' 如果已经填完所有数据，则退出循环
            If index >= pasteData.Length Then
                Exit For
            End If
        Next

        ' 防止键盘事件被连续触发
        e.Handled = True
    End If
End Sub

以上就是在 VB.NET 中实现在 DataGridView 中复制选中多个单元格的数据粘贴到剪切板，然后将剪切板的数据复制到同一个 DataGridView 的另外相同数量且选中的单元格中的方法，希望对你有帮助。