level 1
【图片】求大神教如何通过表1的数据变化，在表2随之变化【excel吧】_百度贴吧
https://tieba.baidu.com/p/6258892018
2019年09月18日 03点09分
吧务
level 15
2
大神，我2007版本没有你的那个选项
2019年09月18日 03点09分
@vipyaoyuan power query最低需要2010版才能用. 你可以考虑升级下office到2019,会有更多实用功能.
2019年09月18日 03点09分
@zipall 这样啊，那用2007版本有什么办法可以实现这个问题吗？
2019年09月18日 03点09分
@vipyaoyuan 搜 ms query 动态查询 就能找到方法.
2019年09月18日 03点09分
level 8
表2 代码
Private Sub Worksheet_Activate()
Dim r%, i%, j%, m%, ar, br, cr
With Sheet1
r = .Cells(Rows.Count, 1).End(3).Row
ar = .Range("a2:c" & r)
br = ar
cr = .Range("a1:c1")
End With
For i = 1 To UBound(ar)
If ar(i, 2) = "小明" Then
m = m + 1
For j = 1 To 3
br(m, j) = ar(i, j)
Next j
End If
Next i
Range("a1:c1") = cr
Cells(2, 1).Resize(m, 3) = br
End Sub
2019年09月18日 08点09分
7
Private Sub Worksheet_Activate()
Dim r%, i%, j%, m%, ar, br, cr
With Sheet1
r = .Cells(Rows.Count, 1).End(3).Row
ar = .Range("a2:c" & r)
br = ar
cr = .Range("a1:c1")
End With
For i = 1 To UBound(ar)
If ar(i, 2) = "小明" Then
m = m + 1
For j = 1 To 3
br(m, j) = ar(i, j)
Next j
End If
Next i
Range("a1:c1") = cr
Cells(2, 1).Resize(m, 3) = br
End Sub