|
发表于 2016-4-30 16:56
|
显示全部楼层
本楼为最佳答案
Private Sub CommandButton1_Click()
Dim A, B, C, i&, j%, k%
A = Sheets(2).Range("a1").CurrentRegion
ReDim C(1 To UBound(A), 1 To UBound(A, 2))
B = Sheets(3).Range("a1").CurrentRegion
For k = 1 To UBound(B, 2) '过渡表
For j = 1 To UBound(A, 2) '结果表
'如果结果表和过渡表标题相同,就提取
If B(1, k) = A(1, j) Then
For i = 1 To UBound(A)
C(i, k) = A(i, j)
Next i
End If
Next j
Next k
Sheets(3).Activate
Sheets(3).Cells.ClearContents
Sheets(3).[a1].Resize(i - 1, k) = C
End Sub
模板4.rar
(31.25 KB, 下载次数: 11)
|
|