求助：从表1中，用vba筛选出边压在4000-8000的数据，表2中显示

2217918 · 发表于 2023-4-27 10:09

不知道为什么发表于 2023-4-27 00:27
附件测试。。。。。。。。。。

谢谢，老师，再次感谢！

2217918 · 发表于 2023-4-29 22:17

不知道为什么发表于 2023-4-27 00:27
附件测试。。。。。。。。。。

老师在帮忙修改下：表1数据多了，边压没有按照从小到大进行排序！

limonet · 发表于 2023-4-30 15:04

代码会审核。

limonet · 发表于 2023-4-30 15:06

Sub limonet()
Dim Cn As Object, StrSQL$
Set Cn = CreateObject("adodb.connection")
Cn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName
StrSQL = "select * from [表1$B7:J] Where [边压]>=4000 and [边压]<=8000 order by [边压]"
Range("B8").CopyFromRecordset Cn.Execute(StrSQL)
Set Cn = Nothing
End Sub

不知道为什么 · 发表于 2023-4-30 22:21

2217918 发表于 2023-4-29 22:17
老师在帮忙修改下：表1数据多了，边压没有按照从小到大进行排序！

已做排序处理。。。

2217918 · 发表于 2023-4-30 22:36

本帖最后由 2217918 于 2023-4-30 22:44 编辑

limonet 发表于 2023-4-30 15:06
Sub limonet()
Dim Cn As Object, StrSQL$
Set Cn = CreateObject("adodb.connection")

第1列，能否按照顺序号往下，1，2，3，4，5不要取表1中的序号
谢谢，老师！

2217918 · 发表于 2023-4-30 22:37

不知道为什么发表于 2023-4-30 22:21
已做排序处理。。。

再次感谢老师！谢谢！

		自动登录	找回密码
密码			免费注册

[求助] 求助：从表1中，用vba筛选出边压在4000-8000的数据，表2中显示