不管行号是否对应上,都管用。
For i As Integer = 0 To 49
For j As Integer = 10 To 59
If j - 10 = i Then Tables("表B").Rows(j)("第一列") = Tables("表A").Rows(i)("第一列") End If NextNext