2个回答
展开全部
使用VBA, 通过时间逻辑判定及数据判定,达到在表一自动提取表二数据的效果。
追问
不会操作 能帮我写下吗?
追答
我传了一个视频上去展示效果,录完后录不入声音。楼主把原文件发我,我到时候给你发邮箱好了。没有原文件,我编的宏你复制过去没法直接用。我的个人邮箱liwei8670@126.com.
视频展示的宏:
Sub TEST()
Dim i, j, x, y As Integer
x = Sheets(1).Range("b65536").End(xlUp).Row
y = Sheets(2).Range("b65536").End(xlUp).Row
On Error Resume Next
Range("c2:c" & x).ClearContents
For i = 2 To x
For j = 2 To y
If Sheets(2).Range("b" & j) = Sheets(1).Range("b" & i) And Sheets(2).Range("a" & j) = Date Then
Sheets(1).Range("c" & i) = Sheets(2).Range("c" & j)
End If
Next
Next
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询