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

如何根据A1日期,提取工作表‘数据’对应数据到工作表报表‘报表’,使用VBA代码,函数不要... 如何根据A1日期,提取工作表‘数据’对应数据到工作表报表‘报表’,使用VBA代码,函数不要 展开
 我来答
柔软的Bp
科技发烧友

2018-05-25 · 智能家居/数码/手机/智能家电产品都懂点
知道大有可为答主
回答量:3万
采纳率:66%
帮助的人:8965万
展开全部
代码复制到 报表 代码窗口,不要弄反了哦
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
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式