如何使用VBA代码提取excel工作表数据

如何根据A1日期，提取工作表‘数据’对应数据到工作表报表‘报表’，使用VBA代码，函数不要... 如何根据A1日期，提取工作表‘数据’对应数据到工作表报表‘报表’，使用VBA代码，函数不要展开





 我来答

1个回答

#热议# 什么是淋病？哪些行为会感染淋病？

柔软的Bp

科技发烧友

2018-05-25 · 智能家居/数码/手机/智能家电产品都懂点

知道大有可为答主

回答量：3万

采纳率：67%

帮助的人：8944万

我也去答题访问个人页

关注

展开全部

代码复制到报表代码窗口，不要弄反了哦
Sub 获取数据()
x = WorksheetFunction.Match([A1], Sheets("数据").Range("B:B"), 0)
arr = Sheets("数据").Range("d" & x & ":" & "h" & x)
[b4].Resize(1, 5) = arr
[b5] = Sheets("数据").Cells(x, "i")
End Sub
或
Sub 获取数据()
y = WorksheetFunction.CountIf(Sheets("数据").Range("B:B"), [a1])
If y = 0 Then
MsgBox "日期输入错误"
Exit Sub
End If
x = WorksheetFunction.Match([a1], Sheets("数据").Range("B:B"), 0)
arr = Sheets("数据").Range("d" & x & ":" & "h" & x)
[b4].Resize(1, 5) = arr
[b5] = Sheets("数据").Cells(x, "i")
End Sub