Vb Copy and paste multiple cells within DataGridView

Question

this only can paste to 1 cells
how to make it can paste to multi cells
Private Sub CustomerDataGridView_KeyDown(sender As Object, e As KeyEventArgs) Handles CustomerDataGridView.KeyDown
        If CustomerDataGridView.RowCount > 0 Then
            If e.Control And (e.KeyCode = Keys.C) Then
                Dim d As DataObject = CustomerDataGridView.GetClipboardContent()
                Clipboard.SetDataObject(d)
                e.Handled = True
            ElseIf (e.Control And e.KeyCode = Keys.V) Then
                PasteUnboundRecords(CustomerDataGridView)
            End If
        End If
    End Sub
Private Sub PasteUnboundRecords(ByVal dgv As DataGridView)
        Try
            Dim rowLines As String() = Clipboard.GetText(TextDataFormat.Text).Split(New String(0) {vbCr & vbLf}, StringSplitOptions.None)
            Dim currentRowIndex As Integer = (If(dgv.CurrentRow IsNot Nothing, dgv.CurrentRow.Index, 0))
            Dim currentColumnIndex As Integer = (If(dgv.CurrentCell IsNot Nothing, dgv.CurrentCell.ColumnIndex, 0))
            Dim currentColumnCount As Integer = dgv.ColumnCount
            For rowLine As Integer = 0 To rowLines.Length - 1
                If rowLine = rowLines.Length - 1 AndAlso String.IsNullOrEmpty(rowLines(rowLine)) Then
                    Exit For
                End If
                Dim columnsData As String() = rowLines(rowLine).Split(New String(0) {vbTab}, StringSplitOptions.None)
                If (currentColumnIndex + columnsData.Length) > dgv.ColumnCount Then
                    For columnCreationCounter As Integer = 0 To ((currentColumnIndex + columnsData.Length) - currentColumnCount) - 1
                        If columnCreationCounter = rowLines.Length - 1 Then
                            Exit For
                        End If
                    Next
                End If
                If dgv.Rows.Count > (currentRowIndex + rowLine) Then
                    For columnsDataIndex As Integer = 0 To columnsData.Length - 1
                        If currentColumnIndex + columnsDataIndex <= dgv.ColumnCount - 1 Then
                            dgv.Rows(currentRowIndex + rowLine).Cells(currentColumnIndex + columnsDataIndex).Value = columnsData(columnsDataIndex)
                        End If
                    Next
                Else
                    Dim pasteCells As String() = New String(dgv.ColumnCount - 1) {}
                    For cellStartCounter As Integer = currentColumnIndex To dgv.ColumnCount - 1
                        If columnsData.Length > (cellStartCounter - currentColumnIndex) Then
                            pasteCells(cellStartCounter) = columnsData(cellStartCounter - currentColumnIndex)
                        End If
                    Next
                End If
            Next
        Catch ex As Exception
        End Try
    End Sub
          

Answer 1

Maybe the below code by
Rbie from below thread.
DataGridView Copy Paste option like Excel
Private Sub DataGridView1_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseClick
If DataGridView1.SelectedCells.Count > 0 Then
DataGridView1.ContextMenuStrip = ContextMenuStrip1
End If
End Sub
Private Sub CutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CutToolStripMenuItem.Click
CopyToClipboard()
For counter As Integer = 0 To DataGridView1.SelectedCells.Count - 1
DataGridView1.SelectedCells(counter).Value = String.Empty
Next
End Sub
Private Sub CopyToClipboard()
Dim dataObj As DataObject = DataGridView1.GetClipboardContent
If Not IsNothing(dataObj) Then
Clipboard.SetDataObject(dataObj)
End If
End Sub
Private Sub CopyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click
CopyToClipboard()
End Sub
Private Sub PasteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PasteToolStripMenuItem.Click
PasteClipboardValue()
End Sub
Private Sub PasteClipboardValue()
If DataGridView1.SelectedCells.Count = 0 Then
MessageBox.Show("No Cell selected", "Paste")
Exit Sub
End If
Dim StartingCell As DataGridViewCell = GetStartingCell(DataGridView1)
Dim rowCount = DataGridView1.SelectedCells.OfType(Of DataGridViewCell)().Select(Function(x) x.RowIndex).Distinct().Count()
Dim cbvalue As Dictionary(Of Integer, Dictionary(Of Integer, String)) = ClipboardValues(Clipboard.GetText)
Dim repeat As Integer = 0
If rowCount > cbvalue.Keys.Count Then
If rowCount Mod cbvalue.Keys.Count <> 0 Then
MessageBox.Show("Selected destination doesn't match")
Exit Sub
Else
repeat = CInt(rowCount / cbvalue.Keys.Count)
End If
End If
Dim irowindex = StartingCell.RowIndex
For x As Integer = 1 To repeat
For Each rowkey As Integer In cbvalue.Keys
Dim icolindex As Integer = StartingCell.ColumnIndex
For Each cellkey As Integer In cbvalue(rowkey).Keys
If icolindex <= DataGridView1.Columns.Count - 1 And irowindex <= DataGridView1.Rows.Count - 1 Then
Dim cell As DataGridViewCell = DataGridView1(icolindex, irowindex)
cell.Value = cbvalue(rowkey)(cellkey)
End If
icolindex += 1
Next
irowindex += 1
Next
Next
End Sub
Private Function GetStartingCell(dgView As DataGridView) As DataGridViewCell
If dgView.SelectedCells.Count = 0 Then Return Nothing
Dim rowIndex As Integer = dgView.Rows.Count - 1
Dim ColIndex As Integer = dgView.Columns.Count - 1
For Each dgvcell As DataGridViewCell In dgView.SelectedCells
If dgvcell.RowIndex < rowIndex Then rowIndex = dgvcell.RowIndex
If dgvcell.ColumnIndex < ColIndex Then ColIndex = dgvcell.ColumnIndex
Next
Return dgView(ColIndex, rowIndex)
End Function
Private Function ClipboardValues(clipboardvalue As String) As Dictionary(Of Integer, Dictionary(Of Integer, String))
Dim lines() As String = clipboardvalue.Split(CChar(Environment.NewLine))
Dim copyValues As Dictionary(Of Integer, Dictionary(Of Integer, String)) = New Dictionary(Of Integer, Dictionary(Of Integer, String))
For i As Integer = 0 To lines.Length - 1
copyValues.Item(i) = New Dictionary(Of Integer, String)
Dim linecontent() As String = lines(i).Split(ChrW(Keys.Tab))
If linecontent.Length = 0 Then
copyValues(i)(0) = String.Empty
Else
For j As Integer = 0 To linecontent.Length - 1
copyValues(i)(j) = linecontent(j)
Next
End If
Next
Return copyValues
End Function
La vida loca