如何用vba在excel中读取某列的数据添加到另一表的对应行。

Question

补充：
表一 项目 1 2 3 表二 Y X Z
X 0.2 1 1.3
Y 0.3 0.2 1.3
Z 0.4 1.2 1.2
将表二中的三组数值，汇入至表一对应的栏位，使用vba编写程序，多谢各位的帮忙！谢谢！

Answer 1

测试已实现，有问题请hi我

Public Sub 痒痒养羊()
For i = 1 To 3
For j = 2 To 4
If Sheet2.Cells(1, i) = Sheet1.Cells(j, 1) Then
k = Sheet2.Cells(1, i).End(xlDown).Row
For m = 2 To k
Sheet1.Cells(j, m) = Sheet2.Cells(m, i)
Next
End If
Next
Next
End Sub追问

当表二中，有多个项，且y-a表示y，x-a表示x，z-a表示z时，将y-a，x-a，z-a对应到表一的y，x，z，程式该如何更改？谢谢！

追答

加一个left就行了

Public Sub 痒痒养羊()
For i = 1 To 3
For j = 2 To 4
If Left(Sheet2.Cells(1, i), 1) = Sheet1.Cells(j, 1) Then
k = Sheet2.Cells(1, i).End(xlDown).Row
For m = 2 To k
Sheet1.Cells(j, m) = Sheet2.Cells(m, i)
Next
End If
Next
Next
End Sub