主题：求代码一个

第一列      第二列

 

  A             B

  B             B

  B             B

 A             C

B             C

B               C

 

 

在第一行为A的情况下,第二和第三行都是B的时候,第二列复制A的数据,同样 弟四列   以下的一样

Dim r As String
For Each dr As DataRow In DataTables("表A").DataRows
    If dr("第一列") ="A" Then
        r = dr("第二列")
    Else If dr("第一列") ="B" Then
        dr("第二列") = r
    End If
Next