下方向に同じ文字が続いたら非表示にする

'カテゴリ名について同じ文字が続いたら非表示にする
Dim GroupString As String = DataGrid1.Items(0).Cells(0).Text
For i = 1 To DataGrid1.Items.Count - 1

    If DataGrid1.Items(i).Cells(0).Text = GroupString Then
        DataGrid1.Items(i).Cells(0).Text = ""
    Else
        'グループブレイクしたとき
        GroupString = DataGrid1.Items(i).Cells(0).Text
    End If
Next

ちなみにDataGrid1.Items(行).Cells(列)を指定すればセルの値が取得できる。
indexは０から始まるので注意。