|
是这样吗?
Sub 按钮1_Click()
Dim a, b, c, arr()
a = Sheets("1录").Range("A1").CurrentRegion
b = Sheets("2录").Range("A1").CurrentRegion
c = Sheets("比对结果").Range("A1").CurrentRegion
ReDim arr(1 To (UBound(c, 2) - 2) * (UBound(c) - 1) + 1, 1 To 5)
arr(1, 1) = "画像名"
arr(1, 2) = "字段名"
arr(1, 3) = "一录"
arr(1, 4) = "二录"
arr(1, 5) = "比对结果"
Dim ii&, jj&
ii = 2
For j = 3 To UBound(c, 2)
For i = 2 To UBound(c)
arr(ii, 1) = i - 1
arr(ii, 2) = c(1, j)
arr(ii, 3) = a(i, j)
arr(ii, 4) = b(i, j)
arr(ii, 5) = c(i, j)
ii = ii + 1
Next i
Next j
Sheets("比对结果显示").Range("A15").Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub |
|