Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        DataGridView1.Columns.Clear()

        DataGridView1.DataSource = Nothing

        DataGridView1.AllowUserToAddRows = False

        DataGridView1.Columns.Add(New DataGridViewTextBoxColumn() With {.HeaderText = "列1", .SortMode = DataGridViewColumnSortMode.NotSortable})

        DataGridView1.Columns.Add(New DataGridViewTextBoxColumn() With {.HeaderText = "列2", .SortMode = DataGridViewColumnSortMode.NotSortable})

        DataGridView1.Rows.Add(1, "A")

        DataGridView1.Rows.Add(2, "B")

        DataGridView1.Rows.Add(3, "C")

        DataGridView1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText

        DataGridView1.SelectionMode = DataGridViewSelectionMode.FullColumnSelect

    End Sub



    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        DataGridView1.CurrentCell = DataGridView1(1, 0)

        Dim obj = DataGridView1.GetClipboardContent()

        Dim data() As String = Split(obj.GetText(), vbCrLf)



        Array.ForEach(data, AddressOf MsgBox)  '確認 

    End Sub

End Class