VB.NET 中dataGridView复制多个单元格内容粘贴到其他多个单元格中，并举例详细说明可以直接使用的代码

以下是一个示例代码，可以直接使用来实现将 dataGridView 中多个单元格的内容复制到其他多个单元格中：

' 获取选定的单元格
Dim selectedCells As DataGridViewSelectedCellCollection = DataGridView1.SelectedCells

If selectedCells.Count > 0 Then
    ' 获取选定单元格的行和列的范围
    Dim minRowIndex As Integer = Integer.MaxValue
    Dim maxRowIndex As Integer = Integer.MinValue
    Dim minColIndex As Integer = Integer.MaxValue
    Dim maxColIndex As Integer = Integer.MinValue

    For Each cell As DataGridViewCell In selectedCells
        If cell.RowIndex < minRowIndex Then
            minRowIndex = cell.RowIndex
        End If

        If cell.RowIndex > maxRowIndex Then
            maxRowIndex = cell.RowIndex
        End If

        If cell.ColumnIndex < minColIndex Then
            minColIndex = cell.ColumnIndex
        End If

        If cell.ColumnIndex > maxColIndex Then
            maxColIndex = cell.ColumnIndex
        End If
    Next

    ' 获取选定单元格的内容
    Dim cellValues(maxRowIndex - minRowIndex, maxColIndex - minColIndex) As Object

    For Each cell As DataGridViewCell In selectedCells
        cellValues(cell.RowIndex - minRowIndex, cell.ColumnIndex - minColIndex) = cell.Value
    Next

    ' 粘贴选定单元格的内容到其他单元格
    For i As Integer = minRowIndex To maxRowIndex
        For j As Integer = minColIndex To maxColIndex
            If Not DataGridView1.Rows(i).IsNewRow And Not DataGridView1.Columns(j).ReadOnly Then
                DataGridView1.Rows(i).Cells(j).Value = cellValues(i - minRowIndex, j - minColIndex)
            End If
        Next
    Next
End If

这段代码的作用是，首先获取选定的单元格，并计算出选定单元格的行和列的范围。然后，获取选定单元格的内容，并粘贴到其他单元格中。

具体来说，对于选定的每个单元格，都会将其值保存到一个二维数组中。然后，遍历其他单元格，如果单元格不是新增行并且不是只读单元格，就将相应的值从数组中取出并设置到该单元格中。

需要注意的是，这段代码中假设 dataGridView 中没有合并的单元格。如果存在合并的单元格，则需要对其进行特殊处理。另外，如果需要进行数据类型转换，也需要进行相应的处理。