如何使用VBA代码提取excel工作表数据
答案:1 悬赏:30 手机版
解决时间 2021-11-17 14:27
- 提问者网友：做自己de王妃
- 2021-11-16 13:58
如何使用VBA代码提取excel工作表数据
最佳答案
- 五星知识达人网友：洒脱疯子
- 2021-11-16 14:35
代码复制到 报表 代码窗口，不要弄反了哦
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
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
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯